|
1200
|
I add two columns but I see a third column
OBJECT grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "DrawGridLines", 2);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "C1");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "C2");
_ObjectSetProperty( grid , "ColumnAutoResize", -1);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1199
|
I lose the hierarchy, all items are on the same 1st level, while I use PutItems
OBJECT grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "C1");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "C2");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Emily`),1) = `William`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Sophia`),1) = `Alexander`");
_ObjectCallMethod(grid, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(grid, "TemplatePut", _ObjectGetProperty( grid , "Items"))
_ObjectCallMethod( grid , "PutItems", _ObjectCallMethod( grid , "GetItems", ""),_ObjectCallMethod(grid, "ExecuteTemplate", "_ObObj.ItemByIndex(0)"));
_ObjectCallMethod( grid , "PutItems", _ObjectCallMethod( grid , "GetItems", ""),_ObjectCallMethod(grid, "ExecuteTemplate", "_ObObj.ItemByIndex(1)"));
_ObjectCallMethod( grid , "PutItems", _ObjectCallMethod( grid , "GetItems", ""),_ObjectCallMethod(grid, "ExecuteTemplate", "_ObObj.ItemByIndex(6)"));
_ObjectCallMethod(grid, "ExecuteTemplate", "Items.ExpandItem(0) = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1198
|
Column width set by code is ignored or it seems that does not work
OBJECT grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "DrawGridLines", 2);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "C1") , "Width", 32);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "C2") , "Width", 132);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "C3") , "Width", 264);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1197
|
I want to display this computed value in a TextBox outside the grid and get it updated with any change of its value. How can this be done
// Change event - Occurs when the user changes the cell's content.
FUNCTION gridEvents_Change(OBJECT grid, INT Item, INT ColIndex, VARIANT NewValue)
OBJECT items;
_ObjectCallMethod( grid , "Refresh");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
Message( "Total: " );
Message( _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellCaption(LockedItem(0,0),0)") );
END
OBJECT column,editor,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Numbers");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "Numeric", -1);
_ObjectSetProperty( editor , "EditType", 4);
_ObjectSetProperty( column , "SortType", 1);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(0) = 1");
h = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(0,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemBackColor(h) = 15790320");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,0) = `sum(all,dir,dbl(%0))`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,0) = 4");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellHAlignment(h,0) = 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `'Total: '+value`");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", 10);
_ObjectCallMethod( items , "AddItem", 25);
_ObjectCallMethod( items , "AddItem", 31);
_ObjectCallMethod( items , "AddItem", 48);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1196
|
Disable temporarily the column's sort, resize and drag and drop
OBJECT grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "SortBarVisible", -1);
_ObjectSetProperty( grid , "SortBarCaption", "<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)");
_ObjectSetProperty( grid , "AllowGroupBy", -1);
_ObjectSetProperty( grid , "HeaderEnabled", 0);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Index") , "FormatColumn", "1 index ``");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos") , "FormatColumn", "1 apos ``");
_ObjectSetProperty( _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Edit") , "Editor") , "EditType", 1);
_ObjectSetProperty( grid , "GridLineStyle", 512);
_ObjectSetProperty( grid , "DrawGridLines", 2);
_ObjectSetProperty( grid , "GridLineColor", 14737632);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1195
|
I wonder if it’s possible to highlight/select a column like Excel
// ColumnClick event - Fired after the user clicks on column's header.
FUNCTION gridEvents_ColumnClick(OBJECT grid, OBJECT Column)
' Column.Selected = True
' FocusColumnIndex = Column.Index
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0).Selected = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(1).Selected = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(2).Selected = False");
_ObjectCallMethod( _ObjectGetProperty( grid , "Items") , "SelectAll");
END
OBJECT grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(32) = -1");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "MarkSearchColumn", 0);
_ObjectSetProperty( grid , "SingleSel", 0);
_ObjectSetProperty( grid , "FullRowSelect", 1);
_ObjectSetProperty( grid , "SortOnClick", 0);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Column1");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Column2");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Column3");
items = _ObjectGetProperty( grid , "Items");
_ObjectSetProperty( items , "DefaultItem", _ObjectCallMethod( items , "AddItem", 0));
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(0,1) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(0,2) = 2");
_ObjectSetProperty( items , "DefaultItem", _ObjectCallMethod( items , "AddItem", 3));
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(0,1) = 4");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(0,2) = 5");
_ObjectSetProperty( items , "DefaultItem", _ObjectCallMethod( items , "AddItem", 6));
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(0,1) = 7");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(0,2) = 8");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1194
|
Is it possible to change the color of the border
OBJECT grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( grid , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAAEhABc8IQAAYAQGKIcBiAKBQAGaAoDDMMwyQwAAxDMK8EwsACEIrjKCRShyCYZRhGcTALBIBQSHAZZKgOJIRDENg2SANACRfIUaw1DqBZwkGZoW" +
"hGKgAShIEDwSKkQBlECeJpnKaqIomJYnDLQUw0NL9HQ3JaaKqnWLBVCWEQyVzEIyjBT0EzHMqtKrjaA6NpaP4oT7LEIydKFCRJNi0bSnGqaOj6UJSURRVq3TTFcTyAC3" +
"ahuOo4cpXB4SWrOd41fYNOTQACzbCsSIcPxCe6GXjiNwjPKMWhnIq+M5wXIrJyKCYUaTcejzfgdU5XWqeMoyewMXxmZqbXw/fBYRrEL5vTqNXTzSA4BEB");
_ObjectSetProperty( grid , "Appearance", 16842496);
_ObjectSetProperty( grid , "ColumnAutoResize", -1);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "TreeColumnIndex", -1);
_ObjectSetProperty( grid , "DrawGridLines", -1);
_ObjectSetProperty( grid , "GridLineStyle", 512);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Default");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "before item");
_ObjectCallMethod( items , "AddItem", "item");
_ObjectCallMethod( items , "AddItem", "after item");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1193
|
Expandable-caption
// AnchorClick event - Occurs when an anchor element is clicked.
FUNCTION gridEvents_AnchorClick(OBJECT grid, STRING AnchorID, STRING Options)
Message( AnchorID );
END
OBJECT grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", -1);
_ObjectSetProperty( grid , "TreeColumnIndex", -1);
_ObjectSetProperty( grid , "DrawGridLines", -1);
_ObjectSetProperty( grid , "GridLineStyle", 512);
_ObjectSetProperty( grid , "BackColorAlternate", 15790320);
_ObjectSetProperty( grid , "ShowFocusRect", 0);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Default");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "before item");
h = _ObjectCallMethod( items , "AddItem", "<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4Aj" +
"MGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEB" +
"A==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DAB" +
"vABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==> " +
"650;</a><br>+ withdraw(amount: Currency)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,0) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = False");
_ObjectCallMethod( items , "AddItem", "after item");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1192
|
Expandable-caption
OBJECT grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", -1);
_ObjectSetProperty( grid , "TreeColumnIndex", -1);
_ObjectSetProperty( grid , "DrawGridLines", -1);
_ObjectSetProperty( grid , "GridLineStyle", 512);
_ObjectSetProperty( grid , "BackColorAlternate", 15790320);
_ObjectSetProperty( grid , "ShowFocusRect", 0);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Default");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "before item");
h = _ObjectCallMethod( items , "AddItem", "<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,0) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = False");
_ObjectCallMethod( items , "AddItem", "after item");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1191
|
Force hover-all feature
OBJECT grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(500) = -1");
|
|
1190
|
Disable hover-all feature (Windows 11 or greater)
OBJECT grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(500) = 1");
|
|
1189
|
Display a custom tooltip
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION gridEvents_MouseMove(OBJECT grid, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod( grid , "ShowToolTip", "new content","","","+8","+8");
END
|
|
1188
|
Shows the tooltip of the object moved relative to its default position
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION gridEvents_MouseMove(OBJECT grid, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod( grid , "ShowToolTip", "<null>","<null>","","+8","+8");
END
OBJECT grid;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "tootip") , "ToolTip", "this is a tooltip assigned to a column");
|
|
1187
|
Delete all records
// ButtonClick event - Occurs when user clicks on the cell's button.
FUNCTION gridEvents_ButtonClick(OBJECT grid, INT Item, INT ColIndex, VARIANT Key)
OBJECT cmd;
cmd = CreateObject("ADODB.Command");
_ObjectSetProperty( cmd , "ActiveConnection", _ObjectGetProperty( _ObjectGetProperty( grid , "DataSource") , "ActiveConnection"));
_ObjectSetProperty( cmd , "CommandText", "Delete * from ORDERS");
_ObjectSetProperty( cmd , "CommandType", 1);
_ObjectCallMethod( cmd , "Execute", );
_ObjectCallMethod( _ObjectGetProperty( grid , "DataSource") , "Requery", );
END
// Error event - Fired when an internal error occurs.
FUNCTION gridEvents_Error(OBJECT grid, INT Error, STRING Description)
Message( Description );
END
OBJECT grid,items,rs;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
rs = CreateObject("ADODB.Recordset");
_ObjectCallMethod( rs , "Open", "Select * From Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",1,3);
_ObjectSetProperty( grid , "DataSource", rs);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "%1=12345") , "BackColor", 15790320);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(0) = 1");
h = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(0,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellHasButton(h,0) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,0) = `Requery (delete all records, using ADODB.Command)`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellHAlignment(h,0) = 1");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1186
|
How can I get a cell that shows the sum of a column of minutes in hours + minutes format
OBJECT column,editor,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Minutes");
_ObjectSetProperty( column , "SortType", 1);
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "EditType", 1);
_ObjectSetProperty( editor , "Numeric", -1);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", 10);
_ObjectCallMethod( items , "AddItem", 20);
_ObjectCallMethod( items , "AddItem", 30);
_ObjectCallMethod( items , "AddItem", 40);
_ObjectCallMethod( items , "AddItem", 50);
h = _ObjectCallMethod( items , "AddItem", "sum(all,dir,dbl(%0))");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SortableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,0) = 5");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellHAlignment(h,0) = 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `'<b>HH:NN</b>: '+ (int(value/60) lpad '00') + ':' + ((value mod 60) lpad '00')`");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1185
|
Highlight the match once the filter is applied
// FilterChange event - Occurs when filter was changed.
FUNCTION gridEvents_FilterChange()
format = _ObjectCallMethod( grid , "FormatABC", "`lower(value) replace lower('` + value + `') with '<bgcolor 000000><fgcolor FFFFFF>` + value + `</fgcolor></bgcolor>'`",_ObjectGetProperty( grid , "FilterBarPromptPattern"));
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0).FormatColumn = format");
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(1).FormatColumn = format");
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(2).FormatColumn = format");
END
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "SelBackColor", _ObjectGetProperty( grid , "BackColor"));
_ObjectSetProperty( grid , "SelForeColor", _ObjectGetProperty( grid , "ForeColor"));
_ObjectSetProperty( grid , "ColumnAutoResize", -1);
_ObjectSetProperty( grid , "ContinueColumnScroll", 0);
_ObjectSetProperty( grid , "MarkSearchColumn", 0);
_ObjectSetProperty( grid , "SearchColumnIndex", 1);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "HeaderHeight", 23);
_ObjectSetProperty( grid , "BackColorLevelHeader", _ObjectGetProperty( grid , "BackColor"));
_ObjectSetProperty( grid , "FilterBarCaption", "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 2055);
_ObjectSetProperty( grid , "FilterBarBackColor", _ObjectGetProperty( grid , "BackColor"));
_ObjectSetProperty( grid , "FilterBarPromptPattern", "and");
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Name");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "lower(value)");
column = _ObjectCallMethod( columns , "Add", "Title");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "lower(value)");
column = _ObjectCallMethod( columns , "Add", "City");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "lower(value)");
items = _ObjectGetProperty( grid , "Items");
h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h0")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h0)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Vice President, Sales`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Tacoma`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(h0) = 1");
h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Kirkland`");
h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Redmond`");
h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Manager`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Inside Sales Coordinator`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1184
|
The count of filtered items includes the group-parents. How can I exclude them from count
OBJECT grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "DrawGridLines", 2);
_ObjectSetProperty( grid , "HeaderAppearance", 1);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "SortBarHeight", 28);
_ObjectSetProperty( grid , "SortBarVisible", -1);
_ObjectSetProperty( grid , "AllowGroupBy", -1);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col 1");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col 2");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`219 Smith`),1) = `Ignacio 1234`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`1666 County Road 309A`),1) = `897 Manassa`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`38 Lone Pine`),1) = `Durango 11`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`612 Jachim Street`),1) = `Lamar 222`");
_ObjectSetProperty( grid , "Layout", "MultipleSort=^"C1:1^"");
_ObjectSetProperty( grid , "FilterBarCaption", "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? leafitemcount + ` result(s)` : ``)");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 2055);
_ObjectSetProperty( grid , "FilterBarPromptType", 257);
_ObjectSetProperty( grid , "FilterBarPromptPattern", "12");
_ObjectSetProperty( grid , "FilterBarBackColor", _ObjectGetProperty( grid , "BackColor"));
_ObjectCallMethod( grid , "EndUpdate");
|
|
1183
|
Is it possible to display the count of filtered items
OBJECT grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "DrawGridLines", 2);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col 1");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col 2");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`219 Smith`),1) = `Ignacio 1234`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`1666 County Road 309A`),1) = `897 Manassa`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`38 Lone Pine`),1) = `Durango 11`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`612 Jachim Street`),1) = `Lamar 222`");
_ObjectSetProperty( grid , "FilterBarCaption", "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 2055);
_ObjectSetProperty( grid , "FilterBarPromptType", 257);
_ObjectSetProperty( grid , "FilterBarPromptPattern", "12");
_ObjectSetProperty( grid , "FilterBarBackColor", _ObjectGetProperty( grid , "BackColor"));
_ObjectCallMethod( grid , "EndUpdate");
|
|
1182
|
GroupBy code
OBJECT grid,rs;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
_ObjectSetProperty( grid , "ContinueColumnScroll", 0);
_ObjectSetProperty( grid , "CountLockedColumns", 1);
_ObjectSetProperty( grid , "BackColorLock", 16316664);
_ObjectSetProperty( grid , "HasLines", 1);
_ObjectSetProperty( grid , "LinesAtRoot", 5);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3);
_ObjectSetProperty( grid , "DataSource", rs);
_ObjectSetProperty( grid , "SortBarVisible", -1);
_ObjectSetProperty( grid , "SingleSort", 0);
_ObjectSetProperty( grid , "AllowGroupBy", -1);
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0).Width = 128");
_ObjectSetProperty( grid , "Layout", "MultipleSort = ^"C12:1 C1:2^"");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1181
|
ADOR, MDB (JET)
OBJECT grid,rs;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.mdb",3,3);
_ObjectSetProperty( grid , "DataSource", rs);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1180
|
Editors (ImageSize = 32)
OBJECT appearance,combobox,editor,grid,items,rs;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ImageSize", 32);
_ObjectSetProperty( grid , "DefaultItemHeight", 36);
_ObjectSetProperty( grid , "HeaderHeight", _ObjectGetProperty( grid , "DefaultItemHeight"));
_ObjectSetProperty( grid , "SortBarHeight", _ObjectGetProperty( grid , "DefaultItemHeight"));
_ObjectSetProperty( _ObjectGetProperty( grid , "Font") , "Size", 16);
_ObjectSetProperty( _ObjectGetProperty( grid , "FilterBarFont") , "Size", _ObjectGetProperty( _ObjectGetProperty( grid , "Font") , "Size"));
_ObjectSetProperty( _ObjectGetProperty( grid , "ToolTipFont") , "Size", _ObjectGetProperty( _ObjectGetProperty( grid , "Font") , "Size"));
_ObjectSetProperty( grid , "Indent", 26);
_ObjectCallMethod( grid , "Images", "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" +
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" +
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" +
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" +
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" +
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" +
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" +
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" +
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" +
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" +
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" +
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" +
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" +
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" +
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" +
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" +
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==");
appearance = _ObjectGetProperty( grid , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" +
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" +
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" +
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" +
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" +
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" +
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" +
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==");
_ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" +
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" +
"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" +
"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" +
"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" +
"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" +
"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" +
"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" +
"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" +
"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" +
"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" +
"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" +
"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" +
"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" +
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" +
"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" +
"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" +
"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" +
"gRBCCQAgQEA==");
_ObjectCallMethod( appearance , "Add", 3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" +
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" +
"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" +
"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" +
"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" +
"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" +
"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" +
"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" +
"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" +
"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" +
"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" +
"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" +
"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" +
"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" +
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" +
"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" +
"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=");
_ObjectCallMethod( appearance , "Add", 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==");
_ObjectSetProperty( grid , "BackColorHeader", 80135878);
_ObjectSetProperty( grid , "SelBackColor", 67108864);
_ObjectSetProperty( grid , "SelForeColor", 65536);
_ObjectSetProperty( grid , "ShowFocusRect", 0);
_ObjectCallMethod(grid, "ExecuteTemplate", "CheckImage(0) = 16777216");
_ObjectCallMethod(grid, "ExecuteTemplate", "CheckImage(1) = 33554432");
_ObjectCallMethod(grid, "ExecuteTemplate", "CheckImage(2) = 50331648");
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Add(`Editors`).Def(17) = 1");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(ReadOnly)`),0).EditType = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(EditType)`),0).EditType = 1");
h = _ObjectCallMethod( items , "AddItem", "Value 1");
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 2);
_ObjectCallMethod( editor , "AddItem", 1,"Value 1",1);
_ObjectCallMethod( editor , "AddItem", 2,"Value 2",2);
_ObjectCallMethod( editor , "AddItem", 3,"Value 3",3);
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (DropDownType)'`");
h = _ObjectCallMethod( items , "AddItem", 1);
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectSetProperty( editor , "DropDownAutoWidth", 0);
_ObjectCallMethod( editor , "AddItem", 1,"Nancy Davolio",1);
_ObjectCallMethod( editor , "AddItem", 2,"Andrew Fuller",2);
_ObjectCallMethod( editor , "AddItem", 3,"Janet Leverling",3);
_ObjectCallMethod( editor , "AddItem", 4,"Peacock Margaret",3);
_ObjectCallMethod( editor , "AddItem", 5,"Steven Buchanan",2);
_ObjectCallMethod( editor , "AddItem", 6,"Michael Suyama",1);
_ObjectCallMethod( editor , "AddItem", 7,"Robert King",2);
_ObjectCallMethod( editor , "AddItem", 8,"Laura Callahan",3);
_ObjectCallMethod( editor , "AddItem", 9,"Anne Dodsworth",2);
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (DropDownList - single column list)'`");
h = _ObjectCallMethod( items , "AddItem", 1);
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectSetProperty( editor , "DropDownAutoWidth", 0);
_ObjectCallMethod( editor , "AddItem", 1,"Nancy Davolio",1);
_ObjectCallMethod( editor , "AddItem", 2,"Andrew Fuller",2);
_ObjectCallMethod( editor , "InsertItem", 3,"Janet Leverling",3,2);
_ObjectCallMethod( editor , "InsertItem", 4,"Peacock Margaret",3,2);
_ObjectCallMethod( editor , "InsertItem", 5,"Steven Buchanan",2,2);
_ObjectCallMethod( editor , "InsertItem", 6,"Michael Suyama",1,5);
_ObjectCallMethod( editor , "InsertItem", 7,"Robert King",2,2);
_ObjectCallMethod( editor , "InsertItem", 8,"Laura Callahan",3,2);
_ObjectCallMethod( editor , "InsertItem", 9,"Anne Dodsworth",2,5);
_ObjectCallMethod( editor , "ExpandAll");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (DropDownList - single column tree)'`");
h = _ObjectCallMethod( items , "AddItem", 1);
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectSetProperty( editor , "DropDownAutoWidth", 0);
_ObjectCallMethod(grid, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(grid, "TemplatePut", editor)
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(57) = `Name¦Title¦City¦Phone`");
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(58) = `312¦¦¦96`");
_ObjectCallMethod( editor , "AddItem", 1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1);
_ObjectCallMethod( editor , "AddItem", 2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2);
_ObjectCallMethod( editor , "AddItem", 3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3);
_ObjectCallMethod( editor , "AddItem", 4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3);
_ObjectCallMethod( editor , "AddItem", 5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2);
_ObjectCallMethod( editor , "AddItem", 6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1);
_ObjectCallMethod( editor , "AddItem", 7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2);
_ObjectCallMethod( editor , "AddItem", 8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3);
_ObjectCallMethod( editor , "AddItem", 9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2);
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (DropDownList - multiple columns list)'`");
h = _ObjectCallMethod( items , "AddItem", 1);
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectSetProperty( editor , "DropDownAutoWidth", 0);
_ObjectCallMethod(grid, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(grid, "TemplatePut", editor)
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(57) = `Name¦Title¦City¦Phone`");
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(58) = `312¦¦¦96`");
_ObjectCallMethod( editor , "AddItem", 1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1);
_ObjectCallMethod( editor , "AddItem", 2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2);
_ObjectCallMethod( editor , "InsertItem", 3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3,2);
_ObjectCallMethod( editor , "InsertItem", 4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3,2);
_ObjectCallMethod( editor , "InsertItem", 5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2,2);
_ObjectCallMethod( editor , "InsertItem", 6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1,5);
_ObjectCallMethod( editor , "InsertItem", 7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2,2);
_ObjectCallMethod( editor , "InsertItem", 8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3,2);
_ObjectCallMethod( editor , "InsertItem", 9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2,5);
_ObjectCallMethod( editor , "ExpandAll");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (DropDownList - multiple columns tree)'`");
h = _ObjectCallMethod( items , "AddItem", 100);
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0).EditType = 4");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (SpinType)'`");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(MemoType)`),0).EditType = 5");
h = _ObjectCallMethod( items , "AddItem", 3);
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 6);
_ObjectCallMethod( editor , "AddItem", 1,"Border",1);
_ObjectCallMethod( editor , "AddItem", 2,"Single",2);
_ObjectCallMethod( editor , "AddItem", 4,"Frame",3);
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (CheckListType)'`");
h = _ObjectCallMethod( items , "AddItem", "193.226.40.161");
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "Mask", "{0,255}.{0,255}.{0,255}.{0,255}");
_ObjectSetProperty( editor , "EditType", 8);
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (MaskType)'`");
h = _ObjectCallMethod( items , "AddItem", 65280);
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 9);
_ObjectSetProperty( editor , "Mask", "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (ColorType)'`");
h = _ObjectCallMethod( items , "AddItem", "Tahoma");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0).EditType = 10");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (FontType)'`");
h = _ObjectCallMethod( items , "AddItem", "gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWam" +
"YyIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDA" +
"wBUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQ" +
"G4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYAB" +
"GQZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyC" +
"AAjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATF" +
"ASoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CA" +
"JDQNg/p4AAdoC");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0).EditType = 11");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (PictureType)'`");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(ButtonType)`),0).EditType = 12");
h = _ObjectCallMethod( items , "AddItem", 25);
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0).EditType = 13");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (ProgressBarType)'`");
h = _ObjectCallMethod( items , "AddItem", "Value 1");
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 14);
_ObjectCallMethod( editor , "AddItem", 1,"Value 1",1);
_ObjectCallMethod( editor , "AddItem", 2,"Value 2",2);
_ObjectCallMethod( editor , "AddItem", 3,"Value 3",3);
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (PickEditType)'`");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(LinkEditType)`),0).EditType = 15");
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(UserEditorType)`),0)");
_ObjectSetProperty( editor , "EditType", 16);
_ObjectCallMethod( editor , "UserEditor", "Exontrol.ComboBox","");
combobox = _ObjectGetProperty( editor , "UserEditorObject");
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "LabelHeight", _ObjectGetProperty( grid , "DefaultItemHeight"));
_ObjectSetProperty( combobox , "Style", 2);
_ObjectSetProperty( combobox , "ColumnAutoResize", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3);
_ObjectSetProperty( combobox , "DataSource", rs);
_ObjectSetProperty( combobox , "MinHeightList", 128);
_ObjectSetProperty( combobox , "SearchColumnIndex", 0);
_ObjectSetProperty( combobox , "UseTabKey", 0);
_ObjectCallMethod( combobox , "EndUpdate");
h = _ObjectCallMethod( items , "AddItem", 255);
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 17);
_ObjectCallMethod(grid, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(grid, "TemplatePut", editor)
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(4) = True");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (ColorListType)'`");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(AddItem(65280),0).EditType = 17");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(MemoDropDownType)`),0).EditType = 18");
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(AddItem(-1),0)");
_ObjectSetProperty( editor , "EditType", 19);
_ObjectCallMethod(grid, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(grid, "TemplatePut", editor)
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(17) = 1");
h = _ObjectCallMethod( items , "AddItem", 50);
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 20);
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(41) = -60");
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(53) = 10");
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(63) = 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (SliderType)'`");
h = _ObjectCallMethod( items , "AddItem", 100);
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0).EditType = 21");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (CalculatorType)'`");
_ObjectCallMethod( items , "EnsureVisibleItem", h);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1179
|
Editors (ImageSize = 16, default)
OBJECT appearance,combobox,editor,grid,items,rs;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ImageSize", 16);
_ObjectCallMethod( grid , "Images", "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" +
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" +
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" +
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" +
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" +
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==");
appearance = _ObjectGetProperty( grid , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==");
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Add(`Editors`).Def(17) = 1");
_ObjectSetProperty( grid , "BackColorHeader", 80135878);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(ReadOnly)`),0).EditType = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(EditType)`),0).EditType = 1");
h = _ObjectCallMethod( items , "AddItem", "Value 1");
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 2);
_ObjectCallMethod( editor , "AddItem", 1,"Value 1",1);
_ObjectCallMethod( editor , "AddItem", 2,"Value 2",2);
_ObjectCallMethod( editor , "AddItem", 3,"Value 3",3);
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (DropDownType)'`");
h = _ObjectCallMethod( items , "AddItem", 1);
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectSetProperty( editor , "DropDownAutoWidth", 0);
_ObjectCallMethod( editor , "AddItem", 1,"Nancy Davolio",1);
_ObjectCallMethod( editor , "AddItem", 2,"Andrew Fuller",2);
_ObjectCallMethod( editor , "AddItem", 3,"Janet Leverling",3);
_ObjectCallMethod( editor , "AddItem", 4,"Peacock Margaret",3);
_ObjectCallMethod( editor , "AddItem", 5,"Steven Buchanan",2);
_ObjectCallMethod( editor , "AddItem", 6,"Michael Suyama",1);
_ObjectCallMethod( editor , "AddItem", 7,"Robert King",2);
_ObjectCallMethod( editor , "AddItem", 8,"Laura Callahan",3);
_ObjectCallMethod( editor , "AddItem", 9,"Anne Dodsworth",2);
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (DropDownList - single column list)'`");
h = _ObjectCallMethod( items , "AddItem", 1);
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectSetProperty( editor , "DropDownAutoWidth", 0);
_ObjectCallMethod( editor , "AddItem", 1,"Nancy Davolio",1);
_ObjectCallMethod( editor , "AddItem", 2,"Andrew Fuller",2);
_ObjectCallMethod( editor , "InsertItem", 3,"Janet Leverling",3,2);
_ObjectCallMethod( editor , "InsertItem", 4,"Peacock Margaret",3,2);
_ObjectCallMethod( editor , "InsertItem", 5,"Steven Buchanan",2,2);
_ObjectCallMethod( editor , "InsertItem", 6,"Michael Suyama",1,5);
_ObjectCallMethod( editor , "InsertItem", 7,"Robert King",2,2);
_ObjectCallMethod( editor , "InsertItem", 8,"Laura Callahan",3,2);
_ObjectCallMethod( editor , "InsertItem", 9,"Anne Dodsworth",2,5);
_ObjectCallMethod( editor , "ExpandAll");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (DropDownList - single column tree)'`");
h = _ObjectCallMethod( items , "AddItem", 1);
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectSetProperty( editor , "DropDownAutoWidth", 0);
_ObjectCallMethod(grid, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(grid, "TemplatePut", editor)
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(57) = `Name¦Title¦City¦Phone`");
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(58) = `312¦¦¦96`");
_ObjectCallMethod( editor , "AddItem", 1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1);
_ObjectCallMethod( editor , "AddItem", 2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2);
_ObjectCallMethod( editor , "AddItem", 3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3);
_ObjectCallMethod( editor , "AddItem", 4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3);
_ObjectCallMethod( editor , "AddItem", 5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2);
_ObjectCallMethod( editor , "AddItem", 6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1);
_ObjectCallMethod( editor , "AddItem", 7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2);
_ObjectCallMethod( editor , "AddItem", 8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3);
_ObjectCallMethod( editor , "AddItem", 9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2);
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (DropDownList - multiple columns list)'`");
h = _ObjectCallMethod( items , "AddItem", 1);
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectSetProperty( editor , "DropDownAutoWidth", 0);
_ObjectCallMethod(grid, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(grid, "TemplatePut", editor)
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(57) = `Name¦Title¦City¦Phone`");
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(58) = `312¦¦¦96`");
_ObjectCallMethod( editor , "AddItem", 1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1);
_ObjectCallMethod( editor , "AddItem", 2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2);
_ObjectCallMethod( editor , "InsertItem", 3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3,2);
_ObjectCallMethod( editor , "InsertItem", 4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3,2);
_ObjectCallMethod( editor , "InsertItem", 5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2,2);
_ObjectCallMethod( editor , "InsertItem", 6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1,5);
_ObjectCallMethod( editor , "InsertItem", 7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2,2);
_ObjectCallMethod( editor , "InsertItem", 8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3,2);
_ObjectCallMethod( editor , "InsertItem", 9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2,5);
_ObjectCallMethod( editor , "ExpandAll");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (DropDownList - multiple columns tree)'`");
h = _ObjectCallMethod( items , "AddItem", 100);
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0).EditType = 4");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (SpinType)'`");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(MemoType)`),0).EditType = 5");
h = _ObjectCallMethod( items , "AddItem", 3);
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 6);
_ObjectCallMethod( editor , "AddItem", 1,"Border",1);
_ObjectCallMethod( editor , "AddItem", 2,"Single",2);
_ObjectCallMethod( editor , "AddItem", 4,"Frame",3);
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (CheckListType)'`");
h = _ObjectCallMethod( items , "AddItem", "193.226.40.161");
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "Mask", "{0,255}.{0,255}.{0,255}.{0,255}");
_ObjectSetProperty( editor , "EditType", 8);
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (MaskType)'`");
h = _ObjectCallMethod( items , "AddItem", 65280);
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 9);
_ObjectSetProperty( editor , "Mask", "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (ColorType)'`");
h = _ObjectCallMethod( items , "AddItem", "Tahoma");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0).EditType = 10");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (FontType)'`");
h = _ObjectCallMethod( items , "AddItem", "gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWam" +
"YyIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDA" +
"wBUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQ" +
"G4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYAB" +
"GQZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyC" +
"AAjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATF" +
"ASoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CA" +
"JDQNg/p4AAdoC");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0).EditType = 11");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (PictureType)'`");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(ButtonType)`),0).EditType = 12");
h = _ObjectCallMethod( items , "AddItem", 25);
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0).EditType = 13");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (ProgressBarType)'`");
h = _ObjectCallMethod( items , "AddItem", "Value 1");
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 14);
_ObjectCallMethod( editor , "AddItem", 1,"Value 1",1);
_ObjectCallMethod( editor , "AddItem", 2,"Value 2",2);
_ObjectCallMethod( editor , "AddItem", 3,"Value 3",3);
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (PickEditType)'`");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(LinkEditType)`),0).EditType = 15");
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(UserEditorType)`),0)");
_ObjectSetProperty( editor , "EditType", 16);
_ObjectCallMethod( editor , "UserEditor", "Exontrol.ComboBox","");
combobox = _ObjectGetProperty( editor , "UserEditorObject");
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "LabelHeight", _ObjectGetProperty( grid , "DefaultItemHeight"));
_ObjectSetProperty( combobox , "Style", 2);
_ObjectSetProperty( combobox , "ColumnAutoResize", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3);
_ObjectSetProperty( combobox , "DataSource", rs);
_ObjectSetProperty( combobox , "MinHeightList", 128);
_ObjectSetProperty( combobox , "SearchColumnIndex", 0);
_ObjectSetProperty( combobox , "UseTabKey", 0);
_ObjectCallMethod( combobox , "EndUpdate");
h = _ObjectCallMethod( items , "AddItem", 255);
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 17);
_ObjectCallMethod(grid, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(grid, "TemplatePut", editor)
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(4) = True");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (ColorListType)'`");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(AddItem(65280),0).EditType = 17");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(MemoDropDownType)`),0).EditType = 18");
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(AddItem(-1),0)");
_ObjectSetProperty( editor , "EditType", 19);
_ObjectCallMethod(grid, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(grid, "TemplatePut", editor)
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(17) = 1");
h = _ObjectCallMethod( items , "AddItem", 50);
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 20);
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(41) = -60");
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(53) = 10");
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(63) = 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (SliderType)'`");
h = _ObjectCallMethod( items , "AddItem", 100);
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,0).EditType = 21");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (CalculatorType)'`");
_ObjectCallMethod( items , "EnsureVisibleItem", h);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1178
|
Re-order the cell's caption, icons and images/pictures
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( grid , "Images", "gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmD" +
"cD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "ToLeft");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "ToRight");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(34) = `caption,picture,icons,icon,check`");
_ObjectSetProperty( grid , "DefaultItemHeight", 32);
_ObjectSetProperty( grid , "DrawGridLines", 2);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Caption");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImage(h,0) = 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImages(h,0) = `1,2`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellPicture(h,0) = Me.ExecuteTemplate(`loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)`)");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = CellValue(h,0)");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellHAlignment(h,1) = 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImage(h,1) = CellImage(h,0)");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImages(h,1) = `2,1`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellPicture(h,1) = CellPicture(h,0)");
h = _ObjectCallMethod( items , "AddItem", "<b>HTML</b> <off 4>Caption");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,0) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImage(h,0) = 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImages(h,0) = `1,2`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellPicture(h,0) = Me.ExecuteTemplate(`loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)`)");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = CellValue(h,0)");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,1) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellHAlignment(h,1) = 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImage(h,1) = CellImage(h,0)");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImages(h,1) = `2,1`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellPicture(h,1) = CellPicture(h,0)");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1177
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
// AddColumn event - Fired after a new column has been added.
FUNCTION gridEvents_AddColumn(OBJECT grid, OBJECT Column)
' Column.Def(48) = 2
' Column.Def(49) = 2
END
OBJECT appearance,column,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ImageSize", 32);
_ObjectSetProperty( grid , "DefaultItemHeight", 36);
_ObjectSetProperty( grid , "HeaderHeight", _ObjectGetProperty( grid , "DefaultItemHeight"));
_ObjectSetProperty( grid , "SortBarHeight", _ObjectGetProperty( grid , "DefaultItemHeight"));
_ObjectSetProperty( _ObjectGetProperty( grid , "Font") , "Size", 16);
_ObjectSetProperty( _ObjectGetProperty( grid , "FilterBarFont") , "Size", _ObjectGetProperty( _ObjectGetProperty( grid , "Font") , "Size"));
_ObjectSetProperty( _ObjectGetProperty( grid , "ToolTipFont") , "Size", _ObjectGetProperty( _ObjectGetProperty( grid , "Font") , "Size"));
_ObjectSetProperty( grid , "Indent", 26);
_ObjectCallMethod( grid , "Images", "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" +
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" +
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" +
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" +
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" +
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" +
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" +
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" +
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" +
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" +
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" +
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" +
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" +
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" +
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" +
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" +
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==");
appearance = _ObjectGetProperty( grid , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" +
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" +
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" +
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" +
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" +
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" +
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" +
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==");
_ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" +
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" +
"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" +
"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" +
"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" +
"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" +
"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" +
"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" +
"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" +
"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" +
"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" +
"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" +
"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" +
"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" +
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" +
"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" +
"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" +
"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" +
"gRBCCQAgQEA==");
_ObjectCallMethod( appearance , "Add", 3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" +
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" +
"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" +
"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" +
"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" +
"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" +
"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" +
"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" +
"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" +
"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" +
"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" +
"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" +
"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" +
"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" +
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" +
"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" +
"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=");
_ObjectCallMethod( appearance , "Add", 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==");
_ObjectSetProperty( grid , "BackColorHeader", 80135878);
_ObjectSetProperty( grid , "SelBackColor", 67108864);
_ObjectSetProperty( grid , "SelForeColor", 65536);
_ObjectCallMethod(grid, "ExecuteTemplate", "CheckImage(0) = 16777216");
_ObjectCallMethod(grid, "ExecuteTemplate", "CheckImage(1) = 33554432");
_ObjectCallMethod(grid, "ExecuteTemplate", "CheckImage(2) = 50331648");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(20) = SelBackColor");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(21) = SelForeColor");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(26) = BackColor");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(27) = ForeColor");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(32) = -1");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(0) = 67108864");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(41) = 67174657");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(1) = 67109119");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "ShowFocusRect", 0);
_ObjectSetProperty( grid , "SortBarVisible", -1);
_ObjectSetProperty( grid , "AllowGroupBy", -1);
_ObjectSetProperty( grid , "BackColorSortBar", _ObjectGetProperty( grid , "BackColor"));
_ObjectSetProperty( grid , "BackColorLevelHeader", _ObjectGetProperty( grid , "BackColor"));
_ObjectSetProperty( grid , "FilterBarDropDownHeight", 1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Check");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectSetProperty( column , "Width", 128);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 256);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "FormatColumn", "1 pos ``");
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 48);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Alignment", 1);
_ObjectSetProperty( column , "HeaderAlignment", 1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Image");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 8480);
_ObjectSetProperty( column , "FilterType", 10);
_ObjectSetProperty( column , "DisplayExpandButton", -1);
_ObjectSetProperty( column , "ExpandColumns", "1,2,3");
_ObjectSetProperty( column , "Width", 128);
_ObjectSetProperty( column , "HeaderImage", 1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Images");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Width", 196);
_ObjectSetProperty( column , "HTMLCaption", "<img>1</img><img>2</img><img>3</img> Images");
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(`Pos`).Position = 3");
items = _ObjectGetProperty( grid , "Items");
hR = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hR")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hR)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(hR) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDividerLine(hR) = 0");
h = _ObjectCallMethod( items , "InsertItem", hR,"","Child A");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImage(h,2) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImages(h,3) = `1,2,3`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,3) = `123`");
h = _ObjectCallMethod( items , "InsertItem", hR,"","Child B");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImage(h,2) = 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImages(h,3) = `2,3,1`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,3) = `231`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
h = _ObjectCallMethod( items , "InsertItem", hR,"","Child C");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImage(h,2) = 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(h,3) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,3) = `312`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImages(h,3) = `3,1,2`");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hR")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hR)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(hR) = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1176
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
// AddColumn event - Fired after a new column has been added.
FUNCTION gridEvents_AddColumn(OBJECT grid, OBJECT Column)
' Column.Def(48) = 2
' Column.Def(49) = 2
END
OBJECT appearance,column,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ImageSize", 16);
_ObjectCallMethod( grid , "Images", "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" +
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" +
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" +
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" +
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" +
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==");
appearance = _ObjectGetProperty( grid , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==");
_ObjectSetProperty( grid , "BackColorHeader", 80135878);
_ObjectSetProperty( grid , "SelBackColor", 67108864);
_ObjectSetProperty( grid , "SelForeColor", 65536);
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(20) = SelBackColor");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(21) = SelForeColor");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(26) = BackColor");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(27) = ForeColor");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(32) = -1");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(0) = 67108864");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(41) = 67174657");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(1) = 67109119");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "ShowFocusRect", 0);
_ObjectSetProperty( grid , "SortBarVisible", -1);
_ObjectSetProperty( grid , "AllowGroupBy", -1);
_ObjectSetProperty( grid , "BackColorSortBar", _ObjectGetProperty( grid , "BackColor"));
_ObjectSetProperty( grid , "BackColorLevelHeader", _ObjectGetProperty( grid , "BackColor"));
_ObjectSetProperty( grid , "FilterBarDropDownHeight", 1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Check");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectSetProperty( column , "Width", 128);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 256);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "FormatColumn", "1 pos ``");
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 48);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Alignment", 1);
_ObjectSetProperty( column , "HeaderAlignment", 1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Image");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 8480);
_ObjectSetProperty( column , "FilterType", 10);
_ObjectSetProperty( column , "DisplayExpandButton", -1);
_ObjectSetProperty( column , "ExpandColumns", "1,2,3");
_ObjectSetProperty( column , "Width", 128);
_ObjectSetProperty( column , "HeaderImage", 1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Images");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Width", 196);
_ObjectSetProperty( column , "HTMLCaption", "<img>1</img><img>2</img><img>3</img> Images");
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(`Pos`).Position = 3");
items = _ObjectGetProperty( grid , "Items");
hR = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hR")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hR)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(hR) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDividerLine(hR) = 0");
h = _ObjectCallMethod( items , "InsertItem", hR,"","Child A");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImage(h,2) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImages(h,3) = `1,2,3`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,3) = `123`");
h = _ObjectCallMethod( items , "InsertItem", hR,"","Child B");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImage(h,2) = 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImages(h,3) = `2,3,1`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,3) = `231`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
h = _ObjectCallMethod( items , "InsertItem", hR,"","Child C");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImage(h,2) = 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(h,3) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,3) = `312`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImages(h,3) = `3,1,2`");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hR")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hR)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(hR) = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1175
|
The user clicks the drop-down filter, select a value and the control's list filters for the selected item(s). Is there a way for when the user then goes to the next column to add another filter and the drop down arrow is clicked for the list of values they can filter by to be limited to what is being displayed in the list due to the first filter they set
// AddColumn event - Fired after a new column has been added.
FUNCTION gridEvents_AddColumn(OBJECT grid, OBJECT Column)
OBJECT column;
column = Column;
END
OBJECT grid,rs;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3);
_ObjectSetProperty( grid , "DataSource", rs);
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(`ShipVia`).Position = 2");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1174
|
Does the control display images from database (ADO)
OBJECT column,grid,rs;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
_ObjectSetProperty( grid , "DrawGridLines", -1);
_ObjectSetProperty( grid , "GridLineStyle", 512);
_ObjectSetProperty( grid , "DefaultItemHeight", 48);
rs = CreateObject("ADODB.Recordset");
_ObjectCallMethod( rs , "Open", "Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.mdb",3,3);
_ObjectSetProperty( grid , "DataSource", rs);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(`Photo`)");
_ObjectSetProperty( column , "Position", 1);
_ObjectSetProperty( column , "Width", 128);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1173
|
Does the control display images from database (DAO)
OBJECT column,createobject("dao.dbengine.36"),grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
_ObjectSetProperty( grid , "DrawGridLines", -1);
_ObjectSetProperty( grid , "GridLineStyle", 512);
_ObjectSetProperty( grid , "DefaultItemHeight", 48);
createobject("dao.dbengine.36") = CreateObject("DAO.DBEngine.36");
rs = _ObjectCallMethod( _ObjectCallMethod( createobject("dao.dbengine.36") , "OpenDatabase", "C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.mdb") , "OpenRecordset", "Employees");
_ObjectSetProperty( grid , "DataSource", rs);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(`Photo`)");
_ObjectSetProperty( column , "Position", 1);
_ObjectSetProperty( column , "Width", 128);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1172
|
Is it possible to set from code, a column sort without being inserted in the sortbar
OBJECT grid,rs;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3);
_ObjectSetProperty( grid , "DataSource", rs);
_ObjectSetProperty( grid , "SortBarVisible", -1);
_ObjectSetProperty( grid , "Layout", "singlesort=^"C1:1^"");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1171
|
Is it possible to view all events the control fires
// Event event - Notifies the application once the control fires an event.
FUNCTION gridEvents_Event(OBJECT grid, INT EventID)
Message( _ObjectCallMethod(grid, "ExecuteTemplate", "EventParam(-2)") );
END
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Tasks");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 1);
_ObjectSetProperty( grid , "HeaderVisible", 1);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hChild)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1170
|
How can I find all occurences of the giving value, within a column
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Default");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "FormatColumn", "1 pos 'A-Z'");
_ObjectSetProperty( column , "Position", 0);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "Enabled", 0);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Index");
_ObjectSetProperty( column , "FormatColumn", "0 index ''");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "Enabled", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "A");
_ObjectCallMethod( items , "AddItem", "A");
_ObjectCallMethod( items , "AddItem", "A");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
Message( _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellCaption(FindItem(`A`,0,0),1)") );
Message( _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellCaption(FindItem(`A`,0,1),1)") );
Message( _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellCaption(FindItem(`A`,0,2),1)") );
_ObjectCallMethod( grid , "EndUpdate");
|
|
1169
|
How can I prevent expanding/collapsing the child items
// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
FUNCTION gridEvents_BeforeExpandItem(OBJECT grid, INT Item, VARIANT Cancel)
_ObjectCallMethod(grid, "TemplatePut", "Dim Item")
_ObjectCallMethod(grid, "TemplatePut", Item)
Cancel = _ObjectCallMethod(grid, "ExecuteTemplate", ".Items.ItemParent(Item)");
END
OBJECT grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "SingleSel", 0);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Default");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", _ObjectCallMethod( items , "InsertItem", h,"","Child 1.1"),"","Child");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1.2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", _ObjectCallMethod( items , "InsertItem", h,"","Child 2.1"),"","Child");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2.2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1168
|
How can I display the EBN bigger or smaller (thumb)
OBJECT appearance,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
appearance = _ObjectGetProperty( grid , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"c:\exontrol\images\normal.ebn");
_ObjectCallMethod( appearance , "Add", 10,"CP:1 0 3 0 -3");
_ObjectCallMethod( appearance , "Add", 17,"CP:1 3 0 -3 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(388) = 167772160");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(260) = 285212672");
_ObjectSetProperty( grid , "ScrollBars", 3855);
_ObjectSetProperty( grid , "ScrollBySingleLine", -1);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Def");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", 1);
_ObjectCallMethod( items , "AddItem", 2);
_ObjectCallMethod( items , "AddItem", 3);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1167
|
I am using GroupBy feature to create a tree, but the top rows are aligned with the children, not indented. What could be wrong
// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
FUNCTION gridEvents_AddGroupItem(OBJECT grid, INT Item)
' AddBar(Item,"Progress", #12/2/2017#,#12/2/2017#)
' DefineSummaryBars(Item,"", -3, "")
' Chart.ItemBackColor(Item) = color
OBJECT items;
color = 14474460;
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,Item")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", Item)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(Item) = -1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(Item,1) = CellCaption(Item,GroupItem(Item))");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemBold(Item) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemBackColor(Item) = color");
END
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION gridEvents_AddItem(OBJECT grid, INT Item)
' AddBar(Item,"Task",#12/4/2017#,#12/10/2017#)
' ItemBar(Item,"", 514) = ItemToIndex(Item)
OBJECT items;
items = _ObjectGetProperty( grid , "Items");
END
OBJECT columns,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod( columns , "Add", "C1");
_ObjectCallMethod( columns , "Add", "C2");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( grid , "SortBarVisible", -1);
_ObjectSetProperty( grid , "SortBarCaption", "Drag a <b>column</b> header here to group by that column.");
_ObjectSetProperty( grid , "AllowGroupBy", -1);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `SubItem A.1`");
h = _ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `SubItem A.1`");
h = _ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `SubItem A.1`");
h = _ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `SubItem A.1`");
h = _ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `SubItem B.1`");
h = _ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `SubItem B.1`");
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0).SortOrder = 1");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1166
|
How can I display an item of picture type
OBJECT grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( grid , "ScrollBySingleLine", 0);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Artikel") , "HTMLCaption", "<u>Artikel");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Waarde") , "HTMLCaption", "<u>Waarde");
_ObjectCallMethod(grid, "ExecuteTemplate", "HTMLPicture(`T22128`) = `c:\exontrol\images\zipdisk.gif`");
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "T22128-28)2D");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","<img>T22128:128</img>");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h1,0) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHeight(h1) = 128");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","werkvoorbereiding");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h1,1) = `5.80`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellBold(h1,1) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(h1,,`Type`),1) = `Eenvoudig`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(h1,,`Prijs p/uur`),1) = `60,00`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(h1,,`Marhe`),1) = `15,00%`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(h1,,`Insteltijd min.`),1) = `5,00`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(h1,,`Aantal`),1) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(h1,,`Kostprije`),1) = `5,00`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h1) = True");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","materiall");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h1,1) = `14.82`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellBold(h1,1) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHasChildren(h1) = True");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","snijden");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h1,1) = `3.13`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellBold(h1,1) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHasChildren(h1) = True");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1165
|
Dark mode
OBJECT grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
back = 65536;
fore = 16777215;
_ObjectCallMethod( _ObjectGetProperty( grid , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" +
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" +
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA");
_ObjectCallMethod( _ObjectGetProperty( grid , "VisualAppearance") , "Add", 2,"gBFLBCJwBAEHhEJAAEhABPMIQAAYAQGKIcBiAKBQAGaAoDDcMgwQwAAxjIKUEwsACEIrjKCYVgOHYYQjGMZwHCMIhiGwcAChEZYHgkMYmDAMUhSE78axHG6PY7kKZ4b" +
"iaKIqQLLEhSfJ0YyBECBZpfebIbjmIZMSLEIxDKItJSpCIaRgqWS6ahGO4JUbUFLQHT9IR4daIYRgEEBA");
_ObjectCallMethod( _ObjectGetProperty( grid , "VisualAppearance") , "Add", 3,"gBFLBCJwBAEHhEJAAEhABUUIQAAYAQGKIcBiAKBQAGaAoDDcMgwQwAAxjIKUEwsACEIrjKCYVgOHYYQjGMZwGAsEwjAoYAChEaILgkMw2DBIQwgJIMEr/G6RZxjeL5C" +
"jmG4nDhKMpybAcXxjBIYZJgOQpXb+PobTrNNLzfRFAxVAaWJikcZ4HpIAJNVLFdQ0XYMNSBISsBqrKiKcpeIIDWBZMbRZT1ZABCIZBpEW6LahENQwXrCN74DYkNTdKax" +
"bbuaaXLhGCYBgIA==");
_ObjectSetProperty( grid , "HeaderAppearance", 5);
_ObjectSetProperty( grid , "BackColor", back);
_ObjectSetProperty( grid , "BackColorHeader", back);
_ObjectSetProperty( grid , "BackColorLevelHeader", back);
_ObjectSetProperty( grid , "BackColorSortBar", back);
_ObjectSetProperty( grid , "BackColorSortBarCaption", back);
_ObjectSetProperty( grid , "FilterBarBackColor", back);
_ObjectSetProperty( grid , "FilterBarForeColor", fore);
_ObjectSetProperty( grid , "ForeColor", fore);
_ObjectSetProperty( grid , "ForeColorHeader", fore);
_ObjectSetProperty( grid , "ForeColorSortBar", fore);
_ObjectSetProperty( grid , "SelBackColor", fore);
_ObjectSetProperty( grid , "SelForeColor", back);
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(0) = 16777216");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(32) = -1");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(64) = 50331648");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(65) = back");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(66) = fore");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(20) = fore");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(21) = back");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(26) = back");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(27) = fore");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(28) = back");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(511) = back");
_ObjectCallMethod(grid, "ExecuteTemplate", "Description(25) = `<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>`");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1164
|
I have changed the font, but the item's height remains the same. What I am doing wrong
OBJECT grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
_ObjectCallMethod( grid , "LoadXML", "http://www.exontrol.net/testing.xml");
_ObjectSetProperty( _ObjectGetProperty( grid , "Font") , "Size", 22);
_ObjectSetProperty( grid , "HeaderHeight", 42);
_ObjectSetProperty( grid , "DefaultItemHeight", 36);
_ObjectCallMethod(grid, "ExecuteTemplate", "Items.ItemHeight(0) = Me.DefaultItemHeight");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1163
|
How can I specify the cell's outline, border or lines around, when the cell gets selected
OBJECT appearance,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( grid , "AttachTemplate", "handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}");
appearance = _ObjectGetProperty( grid , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH" +
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" +
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" +
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" +
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA=");
_ObjectCallMethod( appearance , "Add", 2,"CP:1 -4 0 0 0");
_ObjectSetProperty( grid , "SelBackColor", 33554432);
_ObjectSetProperty( grid , "SelForeColor", 65536);
_ObjectSetProperty( grid , "FullRowSelect", 0);
_ObjectSetProperty( grid , "ShowFocusRect", 0);
_ObjectSetProperty( grid , "DefaultItemHeight", 24);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "DrawGridLines", 2);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "C1");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "C2");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Cell 1`),1) = `Cell 2`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Cell 3`),1) = `Cell 4`");
_ObjectSetProperty( _ObjectGetProperty( grid , "Items") , "SelectPos", 1);
_ObjectSetProperty( grid , "SelectColumnIndex", 1);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1162
|
How can I specify the cell's outline, border or lines around, when the item gets selected
OBJECT grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( grid , "AttachTemplate", "handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}");
_ObjectCallMethod( _ObjectGetProperty( grid , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH" +
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" +
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" +
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" +
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA=");
_ObjectSetProperty( grid , "SelBackColor", 16777216);
_ObjectSetProperty( grid , "SelForeColor", 65536);
_ObjectSetProperty( grid , "ShowFocusRect", 0);
_ObjectSetProperty( grid , "DefaultItemHeight", 24);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "DrawGridLines", 2);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "C1");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "C2");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Cell 1`),1) = `Cell 2`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Cell 3`),1) = `Cell 4`");
_ObjectSetProperty( items , "SelectPos", 1);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1161
|
How can I specify the cell's outline, border or lines around
OBJECT grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( grid , "AttachTemplate", "handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}");
_ObjectCallMethod( _ObjectGetProperty( grid , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH" +
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" +
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" +
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" +
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA=");
_ObjectSetProperty( grid , "SelBackMode", 1);
_ObjectSetProperty( grid , "ShowFocusRect", 0);
_ObjectSetProperty( grid , "DefaultItemHeight", 24);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "DrawGridLines", 2);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "C1");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "C2");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Cell 1`),1) = `Cell 2`");
h = _ObjectCallMethod( items , "AddItem", "Cell 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `Cell 3`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellBackColor(h,1) = 16777216");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1160
|
Is it possible to highligth the match while a filter is applied
// AddColumn event - Fired after a new column has been added.
FUNCTION gridEvents_AddColumn(OBJECT grid, OBJECT Column)
' Column.Def(17) = 1
END
// FilterChange event - Occurs when filter was changed.
FUNCTION gridEvents_FilterChange()
format = _ObjectCallMethod( grid , "FormatABC", "`value replace '` + value + `' with '<bgcolor 000000><fgcolor FFFFFF>` + value + `</fgcolor></bgcolor>'`",_ObjectGetProperty( grid , "FilterBarPromptPattern"));
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0).FormatColumn = format");
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(1).FormatColumn = format");
END
OBJECT grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "DrawGridLines", 2);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col 1");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col 2");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`219 Smith`),1) = `Ignacio 1234`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`1666 County Road 309A`),1) = `897 Manassa`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`38 Lone Pine`),1) = `Durango 11`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`612 Jachim Street`),1) = `Lamar 222`");
_ObjectSetProperty( grid , "FilterBarPromptPattern", "1");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 2067);
_ObjectSetProperty( grid , "FilterBarPromptType", 257);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1159
|
How can I replace the cell's context menu ( while edit mode is running )
// RClick event - Fired when right mouse button is clicked
FUNCTION gridEvents_RClick()
OBJECT createobject("exontrol.contextmenu");
Message( "Edit Mode: " );
Message( _ObjectGetProperty( grid , "Editing") );
createobject("exontrol.contextmenu") = CreateObject("Exontrol.ContextMenu");
_ObjectSetProperty( _ObjectGetProperty( createobject("exontrol.contextmenu") , "Items") , "ToString", "Check[chk],[sep],Item 1,Item 2,Item 3,Popup(A,B,C)");
Message( _ObjectCallMethod( createobject("exontrol.contextmenu") , "Select", ) );
END
OBJECT editor,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 1);
editor = _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Column") , "Editor");
_ObjectSetProperty( editor , "EditType", 1);
_ObjectCallMethod(grid, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(grid, "TemplatePut", editor)
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(202) = False");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1158
|
Is it possible to highlight the column's header once a filter is applied (sample 2)
OBJECT appearance,column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
appearance = _ObjectGetProperty( grid , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABO8GACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwQgmNYDSBMcbwS" +
"AsXRYFocJ5gOT6AjKBA2UclEZpajiTY3ABUEgUS5oOBIACqariaQJAAiCRQGiYZyHKaRSwPBKFYDIIjbJheTIDChNVxUcDENQjJqLBIDRzbarye59YBfeBXdgmA4LQbD" +
"MRwNgMMQTDqKYbkOQZHbeGKAWTMEZzJj8cxTEqIaBhGTLfojSZMS7UGK1LLtMyHI6kP7sOiLfi2W4/W7XV72F79TzXIa2ZBuO57bhnAZ/VzGNj4PRNezfRqicjsGxcZw" +
"Xg+TpQj0ew6gSOw7wSbozjsfYXi8PwMnSc52leHotl+MxjmoXh2nybxOH+SQtnYXx+D2P4vGMB56hQf5PCgBYeDwYBCEo1xggebgKH6IIDBYBgkiAQ5FgYPAhEIRgWGq" +
"DBoC4GoCiGCBYhGBQPAWdIQp0eIUiWCZigiJgqgqYpIioJQhmIMhBH0NxjEMag2g2Y4ImYOoOmOSJeDQNxXlOLR3ECUAQICA=");
_ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAEhABgsHQAAYAQGKIcBiAKBQAGaAoDDYNwwQwAAxDAKcEwsACEIrjKCRShyCYZRrGUgRCKQahLEiTIhGUYJHgmK4tRoAUgxWCEExrAaQJjjeCQF" +
"i6LAtDhPMByfQEZQIGyjkgjNLUcSbG4AKgkCiXfpUAJVP7FcgSABEEigNIxToOU4jFgeCYLQKQRK2RC9GQGFCbLhpYKIahGTYWVheN5XXblez9P7ABQwKCcAwXBp7YIK" +
"AT4XBIdYdQ7IL4xGA0AJPFoJC7mOQ5XiYAIBAZ/RL0LCcbxHHafVboQj6JouD5PUDVNY1XBdPynI6CbLhWy6Dq4UZzPwzeBifSHfDjRoJcCZe71KY3GwSEboNA6Kp+QB" +
"HAmZoZjSPYIEiF47lOLJVnuYofBwJJHmaQoYj0MIRHeM4/m6cJ8B+fpBHQJ5SGKPYYH8OYMk+P5Bn4fxaAYZAvEIX4RgUWBGgCCAmAqApgkgNgOgMEYlGASoEkQeBWBa" +
"BZhggZgagaYRoEwShWA6NZZAMQBAICA==");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(0) = 16777216");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(41) = 33554432");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(32) = -1");
_ObjectSetProperty( grid , "HeaderHeight", 28);
_ObjectSetProperty( grid , "BackColorHeader", 16777215);
_ObjectSetProperty( grid , "DrawGridLines", -2);
_ObjectSetProperty( grid , "HeaderVisible", 1);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "C1") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( columns , "Add", "C2");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "Filter", "Item 2");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "C3") , "DisplayFilterButton", -1);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `Item 2`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = `Item 3`");
h = _ObjectCallMethod( items , "AddItem", "Item 4");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `Item 5`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = `Item 6`");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1157
|
How can I make the expand/collapse glyphs DPI aware
OBJECT appearance,grid,items;
grid = ObjectByName("AN1") ;
size = 2;
_ObjectCallMethod( grid , "BeginUpdate");
appearance = _ObjectGetProperty( grid , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 3,"gBFLBCJwBAEHhEJAAEhEGAUHQAAYAQGKIcBiAKBQAGaAoDDYOA4QwAAxDAKcEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBRfIUEghGyNZjgNzQc" +
"CQAI8T5IUgARBJIDSMY6DpOIxYHgmC4DEITNLxOK0EhRHCBZrgOCAYhqEY1Ro+dhPFYjVTMdK0LRtKy7Mq2aJmOpZDxWE7dZKpO5fbxXS67cr2fp/YBed4rfa7KTlOBK" +
"cRQRBEFQPDqPZBkORZHh2FoLRJKbgtHJmHYNQWhVyYBbNCyTI6lahpeuHBx1QaWWxjbCMEr6bpoWLbFi3Ha1UzrPa8b5vSw7Gr+HzYQTHGPXGqaYJdZrnea6B7+U5XUJ" +
"rnSOZciYHwhAeR5HDK+JVGqKRRmScx5HyfRei+H5bmmcp4Fi8o/CGGJKGQKZUGoFQigUPIiCeSZXnyHB6l0SAJn8JxfkIeZ5CgXxjCCAhyB8QgIlAM4MlKAIcCaIBIGY" +
"GoGGEYhqBMMxgnICgRDUDQjESGwmAkWBuCqBoiHIVgkDQYgYESWg2E0YhohcJQigITg3CQSRyEyEYGGOWJwhQJD4FiFIMk0aJFGsIBkkOBJeDc+AchYJwJgIWhSgYZQp" +
"FIVoVGOGQ4l2EwIBWMhgDmDhThCEwkAiaJchKDhjhgZhsCUY4iFCEoZkiaYQmSGAWhWQhgDuDpTjCDQiEgchAg0IpJBoDoFiEKBqCaCAimgIguH8IZnkPUhcBcJg+hGJ" +
"ZnloYJsiaKZKGa24YnWSR0CkKhCA2CxlCqColhAYpqEKER0DqVZ0A0ASAgA==");
_ObjectCallMethod( appearance , "Add", 4,"gBFLBCJwBAEHhEJAAEhABAQCg6AADACAxRDgMQBQKAAzQFAYbBwHCGAAGIYBTgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACjeQYJBCNYbTJAbqhY" +
"IgAR3HqQZABCCSQKkYx0HScRiwPBMFwGIQmaaicZoJCiN4DTZAcIBRDUIxpDR9bBeKw3KqVaZnWhaNpWXZlTzKdSxXisF67RZSdi/XgvF5XXblez9P69LwXe5mUrGbyV" +
"YghCCIKgeG4dR7IMhyLDcKQXCCVW7aGSsOwbAqAXpdGAXTQdDyLJKnaZqOi6BjjA4rNbHGIYJb1XTRMa1LJuG5LJrOeZ3Xre4BLfh1VoFRpjWIYNY1QS7TLOczzfRdDx" +
"TiGVpkjCeJoD4Ng1hSRxiisVRKg8D4PkWZJznmPQ+F8Xx5guWpjHGWYMiYQodEaIRSCgU5KCSeh3naHB/iAAh9n8fwfgIeZ1CgXwjCCAhxl8AgIlAM4MlKAIcCaD54FY" +
"FoFmGCBmBaBIJigPJNgKSAoDSVC+BIbIYCUYYoiYKoJgkWIMlGCAglMaJZDWCYiFyFIJkkOJYhEJc7G4PYPCOaJshQJBjgiVIUgyDRokEaggGSQ4El4N1CBiFgnAmAha" +
"FKFZlFkShUhWJRYmITg3GSQgFGuGBOGOFJkCSSQCDoNgkiOCY0hUJJmmmQhvhqZtYmUOQmBWIRvhgTpjjSbAjEiEgchBZgyEaBIhigWgegqIhIjoDILiACB5nTL5WnWR" +
"YOiSKYJnqGQ7CmOh2hqJ5OkYORxFyShKhSAxihkOomioY5YiqFIkFyTo1HkAxAEAgIA==");
_ObjectCallMethod( appearance , "Add", 1,_ObjectCallMethod( grid , "FormatABC", "`CP:3 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` + int(value*dpi) + ` ` + int(value*dpi)",size));
_ObjectCallMethod( appearance , "Add", 2,_ObjectCallMethod( grid , "FormatABC", "`CP:4 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` + int(value*dpi) + ` ` + int(value*dpi)",size));
_ObjectSetProperty( grid , "LinesAtRoot", 1);
_ObjectSetProperty( grid , "HasButtons", 4);
_ObjectCallMethod(grid, "ExecuteTemplate", "HasButtonsCustom(0) = 16777216");
_ObjectCallMethod(grid, "ExecuteTemplate", "HasButtonsCustom(1) = 33554432");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Column");
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1156
|
Is it possible to highlight the column's header once a filter is applied (sample 1)
OBJECT appearance,column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
appearance = _ObjectGetProperty( grid , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" +
"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" +
"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" +
"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" +
"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" +
"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=");
_ObjectCallMethod( appearance , "Add", 1,"CP:2 -8 -4 2 4");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(0) = 33488638");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(41) = 16843009");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(32) = -1");
_ObjectSetProperty( grid , "HeaderHeight", 28);
_ObjectSetProperty( grid , "BackColorHeader", 16777215);
_ObjectSetProperty( grid , "DrawGridLines", -2);
_ObjectSetProperty( grid , "HeaderVisible", 1);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "C1") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( columns , "Add", "C2");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "Filter", "Item 2");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "C3") , "DisplayFilterButton", -1);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `Item 2`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = `Item 3`");
h = _ObjectCallMethod( items , "AddItem", "Item 4");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `Item 5`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = `Item 6`");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1155
|
How do I update itemcount and matchitemcount of the FilterBarCaption after I added the item using the AddItem method
// Click event - Occurs when the user presses and then releases the left mouse button over the grid control.
FUNCTION gridEvents_Click()
_ObjectCallMethod( _ObjectGetProperty( grid , "Items") , "AddItem", "new");
_ObjectCallMethod( grid , "Refresh");
END
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Item");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( grid , "FilterBarCaption", "`<r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1" +
") + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 3591);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1154
|
I can't get values in the column properly centered. What can be the problem
OBJECT column,grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "TreeColumnIndex", -1);
_ObjectSetProperty( grid , "DrawGridLines", -2);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Default");
_ObjectSetProperty( column , "Alignment", 1);
_ObjectSetProperty( column , "FormatColumn", "ltrim(rtrim(value))");
_ObjectCallMethod( _ObjectGetProperty( grid , "Items") , "AddItem", "item 1 ");
_ObjectCallMethod( _ObjectGetProperty( grid , "Items") , "AddItem", " item 2");
_ObjectCallMethod( _ObjectGetProperty( grid , "Items") , "AddItem", " item 3 ");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1153
|
The Edit method does not work while ReadOnly property is exLocked and the first column is hidden. Is there any fix
// DblClick event - Occurs when the user dblclk the left mouse button over an object.
FUNCTION gridEvents_DblClick(OBJECT grid, INT Shift, INT X, INT Y)
_ObjectCallMethod(grid, "TemplatePut", "Dim c,hit")
_ObjectCallMethod(grid, "TemplatePut", c)
_ObjectCallMethod(grid, "TemplatePut", hit)
var_ItemFromPoint = _ObjectCallMethod(grid, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)");
_ObjectSetProperty( grid , "FocusColumnIndex", c);
_ObjectCallMethod( grid , "Edit", );
END
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "AutoEdit", 0);
_ObjectSetProperty( grid , "ReadOnly", 1);
_ObjectSetProperty( grid , "AutoSearch", -1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "") , "Visible", 0);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Contains");
_ObjectSetProperty( column , "AutoSearch", 1);
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 1);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(),1) = `Tom Hanks`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(),1) = `Leonardo DiCaprio`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(),1) = `Will Smith`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(),1) = `Tom Cruise`");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1152
|
How can I enable the Undo/Redo feature
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "AllowUndoRedo", -1);
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "P1");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "P2");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( items , "AddItem", "Press CTRL + Z for Undo, and CTRL + Y for Redo");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1151
|
The incremental search feature is no working for columns with editor assigned. What can be done
// DblClick event - Occurs when the user dblclk the left mouse button over an object.
FUNCTION gridEvents_DblClick(OBJECT grid, INT Shift, INT X, INT Y)
_ObjectCallMethod( grid , "Edit", );
END
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "AutoEdit", 0);
_ObjectSetProperty( grid , "AutoSearch", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Contains");
_ObjectSetProperty( column , "AutoSearch", 1);
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 1);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Tom Hanks");
_ObjectCallMethod( items , "AddItem", "Leonardo DiCaprio");
_ObjectCallMethod( items , "AddItem", "Will Smith");
_ObjectCallMethod( items , "AddItem", "Tom Cruise");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1150
|
Each item is representated by a key as string. Is it possible to have a drop down editor to display more information when using the item's key
OBJECT editor,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
editor = _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Multiple-Columns Tree DropDownListType") , "Editor");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectCallMethod( editor , "AddItem", 0,"KR|Korea, Republic of");
_ObjectCallMethod( editor , "AddItem", 1,"MO|Macao");
_ObjectCallMethod( editor , "AddItem", 2,"SA|Saudi Arabia");
_ObjectCallMethod( editor , "AddItem", 3,"EG|Egypt");
_ObjectCallMethod( editor , "AddItem", 4,"GB|United Kingdom");
_ObjectCallMethod( editor , "AddItem", 5,"GT|Guatemala");
_ObjectCallMethod( editor , "AddItem", 6,"SR|Suriname");
_ObjectCallMethod( editor , "AddItem", 7,"BM|Bermuda");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "EG");
_ObjectCallMethod( items , "AddItem", "GB");
_ObjectCallMethod( items , "AddItem", "BM");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1149
|
My table includes codes/keys for items, can I display a drop down editor to include more information
OBJECT editor,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
editor = _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Multiple-Columns DropDownListType") , "Editor");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectSetProperty( editor , "DropDownAutoWidth", 0);
_ObjectCallMethod(grid, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(grid, "TemplatePut", editor)
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(57) = `City¦Coordinates¦State`");
_ObjectCallMethod( editor , "AddItem", 0,"JV3|Jollyville¦3026N 09746W¦Texas");
_ObjectCallMethod( editor , "AddItem", 1,"TMO|Altamont¦4021N 11017W¦Utah");
_ObjectCallMethod( editor , "AddItem", 2,"IIM|Williamston¦4241N 08417W¦Michigan");
_ObjectCallMethod( editor , "AddItem", 3,"IWN|Merrittstown¦3958N 07952W¦Pennsylvania");
_ObjectCallMethod( editor , "AddItem", 4,"HOU|Houston¦2945N 09521W¦Texas");
_ObjectCallMethod( editor , "AddItem", 5,"GSF|Gales Ferry¦4125N 07205W¦Connecticut");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "HOU");
_ObjectCallMethod( items , "AddItem", "IIM");
_ObjectCallMethod( items , "AddItem", "TMO");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1148
|
How can I display and select from a multiple-columns tree editor
OBJECT editor,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( grid , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
editor = _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Multiple-Columns Tree DropDownListType") , "Editor");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectSetProperty( editor , "DropDownAutoWidth", 0);
_ObjectCallMethod(grid, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(grid, "TemplatePut", editor)
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(57) = `Name¦Title¦City¦Phone`");
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(58) = `224¦¦¦96`");
_ObjectCallMethod( editor , "AddItem", 1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1);
_ObjectCallMethod( editor , "AddItem", 2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2);
_ObjectCallMethod( editor , "InsertItem", 3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3,2);
_ObjectCallMethod( editor , "InsertItem", 4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3,2);
_ObjectCallMethod( editor , "InsertItem", 5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2,2);
_ObjectCallMethod( editor , "InsertItem", 6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1,5);
_ObjectCallMethod( editor , "InsertItem", 7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2,2);
_ObjectCallMethod( editor , "InsertItem", 8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3,2);
_ObjectCallMethod( editor , "InsertItem", 9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2,5);
_ObjectCallMethod( editor , "ExpandAll");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", 1);
_ObjectCallMethod( items , "AddItem", 2);
_ObjectCallMethod( items , "AddItem", 4);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1147
|
Does you control support multiple-columns for a drop down editor
OBJECT editor,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
editor = _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Multiple-Columns DropDownListType") , "Editor");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectSetProperty( editor , "DropDownAutoWidth", 0);
_ObjectCallMethod( editor , "AddItem", 0,"Jollyville¦JV3¦3026N 09746W¦TX");
_ObjectCallMethod( editor , "AddItem", 1,"Altamont¦TMO¦4021N 11017W¦UT");
_ObjectCallMethod( editor , "AddItem", 2,"Williamston¦IIM¦4241N 08417W¦MI");
_ObjectCallMethod( editor , "AddItem", 3,"Merrittstown¦IWN¦3958N 07952W¦PA");
_ObjectCallMethod( editor , "AddItem", 4,"Houston¦HOU¦2945N 09521W¦TX");
_ObjectCallMethod( editor , "AddItem", 5,"Gales Ferry¦GSF¦4125N 07205W¦CT");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "InsertItem", 0,"",1);
_ObjectCallMethod( items , "InsertItem", 0,"",2);
_ObjectCallMethod( items , "InsertItem", 0,"",4);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1146
|
Is it possible to show the filterbar on top of the rows
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 8192);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "FilterBarHeight", _ObjectGetProperty( grid , "HeaderHeight"));
_ObjectSetProperty( grid , "HeaderAppearance", 1);
_ObjectSetProperty( grid , "DrawGridLines", -1);
_ObjectSetProperty( grid , "GridLineStyle", 512);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Column");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterType", 3);
_ObjectSetProperty( column , "Filter", "B*");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Index");
_ObjectSetProperty( column , "FormatColumn", "1 index ``");
_ObjectSetProperty( column , "Position", 0);
_ObjectSetProperty( column , "Width", 48);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "SortType", 1);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "A.1");
_ObjectCallMethod( items , "AddItem", "A.2");
_ObjectCallMethod( items , "AddItem", "B.1");
_ObjectCallMethod( items , "AddItem", "B.2");
_ObjectCallMethod( items , "AddItem", "B.3");
_ObjectCallMethod( items , "AddItem", "C");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1145
|
DragDrop (with visual effect)
// OLEDragDrop event - Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.
FUNCTION gridEvents_OLEDragDrop(OBJECT grid, OBJECT Data, INT Effect, INT Button, INT Shift, INT X, INT Y)
' SelectItem(InsertItem(i,, Data.GetData(1))) = True
OBJECT items;
_ObjectCallMethod(grid, "TemplatePut", "Dim c,hit")
_ObjectCallMethod(grid, "TemplatePut", c)
_ObjectCallMethod(grid, "TemplatePut", hit)
i = _ObjectCallMethod(grid, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,i")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", i)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(i) = True");
END
// OLEStartDrag event - Occurs when the OLEDrag method is called.
FUNCTION gridEvents_OLEStartDrag(OBJECT grid, OBJECT Data, INT AllowedEffects)
' Data.SetData(Me.Items.CellCaption(FocusItem, 0), 1)
AllowedEffects = 1;
END
OBJECT grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( _ObjectGetProperty( grid , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAAEhABPUIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIaRjEEQDCKYcxHCaIBiGcaIfDEBIeSBHcgRbAcOQHGSZZBhGRJG" +
"juKIbSrLICzBDUcRnGwAKQoaaaEomHwyAZOYwDAIoWhpKKCKjqWJKNb+XgAAJTES0RRVRTNAZ1YghGAQgIA==");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(96) = 16777216");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(33) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(34) = 16777215");
_ObjectSetProperty( grid , "OLEDropMode", 1);
_ObjectSetProperty( grid , "AutoDrag", 196608);
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( grid , "Indent", 16);
_ObjectSetProperty( grid , "SelBackMode", 1);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Default");
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
Message( "You can:" );
Message( "A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)" );
Message( "B) right-click to re-arrange the item position inside the same control" );
Message( "This sample shows how you can insert the data being dropped as a child of the item being hovered." );
|
|
1144
|
DragDrop (with no visual effect, hide item while drag and drop)
// OLEDragDrop event - Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.
FUNCTION gridEvents_OLEDragDrop(OBJECT grid, OBJECT Data, INT Effect, INT Button, INT Shift, INT X, INT Y)
' SelectItem(InsertItem(i,, Data.GetData(1))) = True
OBJECT items;
_ObjectCallMethod(grid, "TemplatePut", "Dim c,hit")
_ObjectCallMethod(grid, "TemplatePut", c)
_ObjectCallMethod(grid, "TemplatePut", hit)
i = _ObjectCallMethod(grid, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,i")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", i)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(i) = True");
END
// OLEStartDrag event - Occurs when the OLEDrag method is called.
FUNCTION gridEvents_OLEStartDrag(OBJECT grid, OBJECT Data, INT AllowedEffects)
' Data.SetData(Me.Items.CellCaption(FocusItem, 0), 1)
AllowedEffects = 1;
END
OBJECT grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(33) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(34) = 16777215");
_ObjectSetProperty( grid , "OLEDropMode", 1);
_ObjectSetProperty( grid , "AutoDrag", 196608);
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( grid , "Indent", 16);
_ObjectSetProperty( grid , "SelBackMode", 1);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Default");
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
Message( "You can:" );
Message( "A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)" );
Message( "B) right-click to re-arrange the item position inside the same control" );
Message( "This sample shows how you can insert the data being dropped as a child of the item being hovered." );
|
|
1143
|
DragDrop
// OLEDragDrop event - Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.
FUNCTION gridEvents_OLEDragDrop(OBJECT grid, OBJECT Data, INT Effect, INT Button, INT Shift, INT X, INT Y)
' SelectItem(InsertItem(i,, Data.GetData(1))) = True
OBJECT items;
_ObjectCallMethod(grid, "TemplatePut", "Dim c,hit")
_ObjectCallMethod(grid, "TemplatePut", c)
_ObjectCallMethod(grid, "TemplatePut", hit)
i = _ObjectCallMethod(grid, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,i")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", i)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(i) = True");
END
// OLEStartDrag event - Occurs when the OLEDrag method is called.
FUNCTION gridEvents_OLEStartDrag(OBJECT grid, OBJECT Data, INT AllowedEffects)
' Data.SetData(Me.Items.CellCaption(FocusItem, 0), 1)
AllowedEffects = 1;
END
OBJECT grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectSetProperty( grid , "OLEDropMode", 1);
_ObjectSetProperty( grid , "AutoDrag", 196608);
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( grid , "Indent", 16);
_ObjectSetProperty( grid , "SelBackMode", 1);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Default");
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
Message( "You can:" );
Message( "A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)" );
Message( "B) right-click to re-arrange the item position inside the same control" );
Message( "This sample shows how you can insert the data being dropped as a child of the item being hovered." );
|
|
1142
|
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header (non-clickable)
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod( columns , "Add", "Item");
column = _ObjectCallMethod( columns , "Add", "Pos");
_ObjectSetProperty( column , "Position", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "FormatColumn", "1 index ``");
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "AllowDragging", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1141
|
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(32) = -1");
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod( columns , "Add", "Item");
column = _ObjectCallMethod( columns , "Add", "Pos");
_ObjectSetProperty( column , "Position", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "FormatColumn", "1 index ``");
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "AllowDragging", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1140
|
Is it possible to exclude the parent/child items when do the filtering, so to include only items that match the filter without any indentation
// FilterChange event - Occurs when filter was changed.
FUNCTION gridEvents_FilterChange()
_ObjectSetProperty( grid , "Indent", _ObjectCallMethod( grid , "FormatABC", "value > 0 ? 18 : 0",_ObjectGetProperty( _ObjectGetProperty( grid , "Items") , "MatchItemCount")));
END
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( grid , "Indent", 18);
_ObjectSetProperty( grid , "FilterInclude", 4);
_ObjectSetProperty( grid , "DrawGridLines", 2);
_ObjectSetProperty( grid , "HeaderAppearance", 1);
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Column");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "FilterList", 256);
_ObjectSetProperty( column , "Filter", "C1");
column = _ObjectCallMethod( columns , "Add", "Pos");
_ObjectSetProperty( column , "FormatColumn", "1 rindex ``");
_ObjectSetProperty( column , "Position", 0);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowDragging", 0);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "R1");
h2 = _ObjectCallMethod( items , "InsertItem", h,"","S");
_ObjectCallMethod( items , "InsertItem", h2,"","C1");
_ObjectCallMethod( items , "InsertItem", h2,"","C2");
_ObjectCallMethod( items , "InsertItem", h,"","C1");
_ObjectCallMethod( items , "InsertItem", h,"","C2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "R2");
_ObjectCallMethod( items , "InsertItem", h,"","C1");
_ObjectCallMethod( items , "InsertItem", h,"","C2");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1139
|
How can I display the total/sum/aggregate in the same column, when the user groups by a column
// AddColumn event - Fired after a new column has been added.
FUNCTION gridEvents_AddColumn(OBJECT grid, OBJECT Column)
OBJECT column;
column = Column;
END
// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
FUNCTION gridEvents_AddGroupItem(OBJECT grid, INT Item)
OBJECT items;
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,Item")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", Item)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(Item) = -1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemBackColor(Item) = Me.BackColorSortBar");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHeight(Item) = Me.HeaderHeight");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellMerge(Item,0) = `1,2,3,4,5,7,8,9,10,11,12`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(Item,13) = `count(current,rec,1)`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(Item,13) = 5");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(Item,0) = CellCaption(Item,GroupItem(Item))");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(Item,0) = ``<b>` + value + `</b> <font ;7><off 3><fgcolor=808080>(` + %13 + `)``");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(Item,6) = `sum(current,all,dbl(%6))`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(Item,6) = 5");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellForeColor(Item,6) = 6710886");
END
// Change event - Occurs when the user changes the cell's content.
FUNCTION gridEvents_Change(OBJECT grid, INT Item, INT ColIndex, VARIANT NewValue)
_ObjectCallMethod( grid , "Refresh");
END
OBJECT column,columns,grid,items,rs;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", 5);
_ObjectSetProperty( grid , "Indent", 12);
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
_ObjectSetProperty( grid , "ScrollBySingleLine", -1);
_ObjectSetProperty( grid , "BackColorSortBar", 15790320);
_ObjectSetProperty( grid , "AutoDrag", 16);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3);
_ObjectSetProperty( grid , "DataSource", rs);
_ObjectSetProperty( grid , "SingleSort", 0);
_ObjectSetProperty( grid , "SortBarVisible", -1);
_ObjectSetProperty( grid , "AllowGroupBy", -1);
_ObjectSetProperty( grid , "HeaderHeight", 24);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Count") , "Visible", 0);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Item(`Freight`)");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(4) = Me.BackColorSortBar");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(7) = Def(4)");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(49) = 4");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(48) = 4");
_ObjectSetProperty( column , "HeaderBold", -1);
_ObjectSetProperty( column , "AllowGroupBy", 0);
_ObjectSetProperty( column , "FormatColumn", "value format ``");
_ObjectSetProperty( column , "Alignment", 2);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Item(0)");
_ObjectSetProperty( column , "AllowGroupBy", 0);
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", columns)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Item(`ShipCountry`).SortOrder = 1");
_ObjectSetProperty( grid , "ScrollBySingleLine", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(2) = 1");
hL = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(2,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hL")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hL)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHeight(hL) = 24");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemBold(hL) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemBackColor(hL) = Me.BackColorSortBar");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(hL,6) = `sum(all,rec,dbl(%6))`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(hL,6) = 5");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellHAlignment(hL,6) = 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(hL,6) = `value format ```");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1138
|
I would like to display a solid line between "root" items, and dotted lines (default) between child items. How can I do that
OBJECT column,conditionalformat,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( grid , "DrawGridLines", 1);
_ObjectSetProperty( grid , "GridLineStyle", 512);
_ObjectCallMethod( _ObjectGetProperty( grid , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAAEhABMsIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIXRpFMbxAKQahLEiTIgGUYJHgmK4tQLHb7zGAABRDDSOIDnGQJX" +
"haI4JQSMMQDGLAZxVFiPRhAWLpBh+PQATrOdLUfSjVwhBKAQEBA==");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Default");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Position");
_ObjectSetProperty( column , "FormatColumn", "((1 rindex ``) contains `.`) = 0");
_ObjectSetProperty( column , "Visible", 0);
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "%C1");
_ObjectSetProperty( conditionalformat , "BackColor", 31514848);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
h = _ObjectCallMethod( items , "AddItem", "Root 3");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1137
|
I can not center or align the cell's caption and icon, when it displays the hierarchy
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( grid , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Tasks");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( grid , "HeaderVisible", 1);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","<img>1</img> Task (left)");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","<c><img>2</img> Task (center)");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","<r>Task (right) <img>3</img>");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1136
|
How do I mask for float/integer number
OBJECT editor,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", -1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Type") , "Width", 32);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Editor");
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Integer");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `12`");
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,1)");
_ObjectSetProperty( editor , "EditType", 1);
_ObjectSetProperty( editor , "Numeric", -1);
h = _ObjectCallMethod( items , "AddItem", "Integer (mask, group)");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `10002`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,1) = `value format `0||``");
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,1)");
_ObjectSetProperty( editor , "EditType", 8);
_ObjectSetProperty( editor , "Mask", ";;;float,digits=0,invalid=empty,warning=invalid character");
h = _ObjectCallMethod( items , "AddItem", "Integer (mask, no group)");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `10002`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,1) = `value format `0|0|``");
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,1)");
_ObjectSetProperty( editor , "EditType", 8);
_ObjectSetProperty( editor , "Mask", ";;;float,digits=0,grouping=,invalid=empty,warning=invalid character");
h = _ObjectCallMethod( items , "AddItem", "Float");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `+12.34E+2`");
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,1)");
_ObjectSetProperty( editor , "EditType", 1);
_ObjectSetProperty( editor , "Numeric", 1);
h = _ObjectCallMethod( items , "AddItem", "Float (no signs)");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `12.34E-2`");
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,1)");
_ObjectSetProperty( editor , "EditType", 1);
_ObjectSetProperty( editor , "Numeric", 769);
h = _ObjectCallMethod( items , "AddItem", "Float-Integer");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `+12.34`");
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,1)");
_ObjectSetProperty( editor , "EditType", 1);
_ObjectSetProperty( editor , "Numeric", 2);
h = _ObjectCallMethod( items , "AddItem", "Float-Integer (no signs)");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `12.34`");
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,1)");
_ObjectSetProperty( editor , "EditType", 1);
_ObjectSetProperty( editor , "Numeric", 770);
h = _ObjectCallMethod( items , "AddItem", "Float (mask,group)");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `10002.34`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,1) = `value format `2``");
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,1)");
_ObjectSetProperty( editor , "EditType", 8);
_ObjectSetProperty( editor , "Mask", ";;;float,invalid=empty,warning=invalid character");
h = _ObjectCallMethod( items , "AddItem", "Float (mask, no group)");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `10002.34`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,1) = `value format `2|0|``");
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditor(h,1)");
_ObjectSetProperty( editor , "EditType", 8);
_ObjectSetProperty( editor , "Mask", ";;;float,grouping=,invalid=empty,warning=invalid character");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1135
|
How do I set an extra data for each item
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION gridEvents_MouseMove(OBJECT grid, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod(grid, "TemplatePut", "Dim c,hit")
_ObjectCallMethod(grid, "TemplatePut", c)
_ObjectCallMethod(grid, "TemplatePut", hit)
i = _ObjectCallMethod(grid, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)");
_ObjectCallMethod(grid, "TemplatePut", "Dim _ObObj,i")
_ObjectCallMethod(grid, "TemplatePut", _ObjectGetProperty( grid , "Items"))
_ObjectCallMethod(grid, "TemplatePut", i)
Message( i );
Message( _ObjectCallMethod(grid, "ExecuteTemplate", "_ObObj.ItemData(i)") );
END
OBJECT grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", -1);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Default");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemData(AddItem(`method 1`)) = `your extra data of method 1`");
_ObjectCallMethod( items , "InsertItem", 0,"your extra data of method 2","method 2");
items = _ObjectGetProperty( grid , "Items");
_ObjectSetProperty( items , "DefaultItem", _ObjectCallMethod( items , "AddItem", "method 3"));
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemData(0) = `your extra data of method 3`");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1134
|
I do not like to specify the item padding for every column I add. The question is how can I do it automatically
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( grid , "AttachTemplate", "handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "DrawGridLines", -1);
_ObjectSetProperty( grid , "GridLineStyle", 32);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod( columns , "Add", "Item");
column = _ObjectCallMethod( columns , "Add", "Pos");
_ObjectSetProperty( column , "Position", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "FormatColumn", "1 index ``");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1133
|
How can I change the Exclude field in the drop down filter window
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectCallMethod(grid, "ExecuteTemplate", "HTMLPicture(`exclude`) = `gCJKBOI4NBQaBQAhQNJJIIhShQACERCAEAcRdrdcUQhQDOZCJJUBEjbbhJ7giIJOBILJziJvl4BeKibhDiIZOhFLB0KZvMx0O5hORlAB3owuNJuNZzMZhOBlFxvORnTbuHgaiIeKBMKhFf9fDIcEoPCAVEAlGI4HhBBYMCARCQVGg4IhVMCAWC2XY1Q7WJ8RBB0KROKYAYDBbzicjndD6fA/VsRHRJIhBkRbMYIGwGAQjA2fRYOEBoYjBFBx1ATCgCGQ8M7OTjSaJMDRDKIwYu5DrIMBgSAADKJTqhBhyRApAA3FAucZPPilokRJJFJxEVxCMCCgIA==`");
_ObjectCallMethod(grid, "ExecuteTemplate", "Description(25) = `<img>exclude</img>`");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 9472);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1132
|
How can I change the Exclude field in the drop down filter window
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectCallMethod(grid, "ExecuteTemplate", "Description(25) = `<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>`");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 9472);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1131
|
The grid lines looks different then before. What should I do
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( grid , "DrawGridLines", -1);
_ObjectSetProperty( grid , "GridLineStyle", 512);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Tasks");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectSetProperty( grid , "HeaderVisible", 1);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hChild)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1130
|
Can I sort the column by check-state
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Check");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "SortType", 32);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", );
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(AddItem(),0) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(AddItem(),0) = 1");
_ObjectCallMethod( items , "AddItem", );
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0).SortOrder = 1");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1129
|
Can I sort the column by image
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( grid , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Image");
_ObjectSetProperty( column , "SortType", 48);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImage(AddItem(),0) = 3");
_ObjectCallMethod( items , "AddItem", );
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImage(AddItem(),0) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImage(AddItem(),0) = 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0).SortOrder = 1");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1128
|
Can I sort the column by value(numeric)
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Value");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "`<fgcolor=808080><off 4><font ;6> ` + (1 index ``) + ` </font></off></fgcolor>` + value");
_ObjectSetProperty( column , "SortType", 17);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "1");
_ObjectCallMethod( items , "AddItem", "10");
_ObjectCallMethod( items , "AddItem", "2");
_ObjectCallMethod( items , "AddItem", "20");
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0).SortOrder = 1");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1127
|
Can I sort a column by cell's state (checked, unchecked) rather than caption
OBJECT column,editor,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Check");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "EditType", 19);
_ObjectCallMethod(grid, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(grid, "TemplatePut", editor)
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(17) = 1");
_ObjectSetProperty( column , "SortType", 1);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", -1);
_ObjectCallMethod( items , "AddItem", 0);
_ObjectCallMethod( items , "AddItem", 0);
_ObjectCallMethod( items , "AddItem", -1);
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0).SortOrder = 1");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1126
|
How do I get the item's auto-number, when using FormatColumn property, as CellValue gets empty
// SelectionChanged event - Fired after a new item has been selected.
FUNCTION gridEvents_SelectionChanged()
OBJECT items;
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
Message( "pos: " );
Message( _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellCaption(FocusItem,1)") );
Message( "rpos(1): " );
Message( _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellCaption(FocusItem,2)") );
Message( "rpos(2): " );
Message( _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellCaption(FocusItem,3)") );
Message( "apos: " );
Message( _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellCaption(FocusItem,4)") );
Message( "index: " );
Message( _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellCaption(FocusItem,5)") );
END
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( grid , "DrawGridLines", -2);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod( columns , "Add", "Items");
column = _ObjectCallMethod( columns , "Add", "pos");
_ObjectSetProperty( column , "FormatColumn", "1 pos ``");
_ObjectSetProperty( column , "Position", 0);
_ObjectSetProperty( column , "Width", 48);
_ObjectSetProperty( column , "AllowSizing", 0);
column = _ObjectCallMethod( columns , "Add", "rpos(1)");
_ObjectSetProperty( column , "FormatColumn", "1 rpos ``");
_ObjectSetProperty( column , "Position", 1);
_ObjectSetProperty( column , "Width", 48);
_ObjectSetProperty( column , "AllowSizing", 0);
column = _ObjectCallMethod( columns , "Add", "rpos(2)");
_ObjectSetProperty( column , "FormatColumn", "1 rpos `.||A-Z`");
_ObjectSetProperty( column , "Position", 2);
_ObjectSetProperty( column , "Width", 48);
_ObjectSetProperty( column , "AllowSizing", 0);
column = _ObjectCallMethod( columns , "Add", "apos");
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 3);
_ObjectSetProperty( column , "Width", 48);
_ObjectSetProperty( column , "AllowSizing", 0);
column = _ObjectCallMethod( columns , "Add", "index");
_ObjectSetProperty( column , "FormatColumn", "1 index ``");
_ObjectSetProperty( column , "Position", 4);
_ObjectSetProperty( column , "Width", 48);
_ObjectSetProperty( column , "AllowSizing", 0);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
hSel = _ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod( items , "AddItem", "Item 3");
_ObjectCallMethod( grid , "EndUpdate");
_ObjectCallMethod(grid, "TemplatePut", "Dim hSel")
_ObjectCallMethod(grid, "TemplatePut", hSel)
_ObjectCallMethod(grid, "ExecuteTemplate", "Items.SelectItem(hSel) = True");
|
|
1125
|
How can I display UNICODE characters
OBJECT grid,items,stdfont;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
stdfont = _ObjectGetProperty( grid , "Font");
_ObjectSetProperty( stdfont , "Name", "Arial Unicode");
_ObjectSetProperty( stdfont , "Size", 22);
_ObjectSetProperty( grid , "HeaderVisible", 0);
_ObjectSetProperty( grid , "DefaultItemHeight", 48);
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Add(``).Def(17) = 1");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Ӓӓ");
_ObjectCallMethod( items , "AddItem", "ᦜᦝ;ᦞ");
_ObjectCallMethod( items , "AddItem", "ɮɭ;ɯ");
_ObjectCallMethod( items , "AddItem", "勳勴勵勶");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(AddItem(Me.Version),0) = `(value lfind `UNICODE`) < 0 ? `<fgcolor=FF0000><b>!UNICODE!</b> version</fgcolor> required: ` + value : `` `");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1124
|
How do I display the position of the item with 0-padding
OBJECT grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Items") , "FormatColumn", "((1 apos ``) lpad `00`) + `. ` + value");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectCallMethod( items , "AddItem", "Item D");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1123
|
Can't get the +/- to be displayed on a divider item. What else can I do
OBJECT columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( grid , "DrawGridLines", -1);
_ObjectSetProperty( grid , "TreeColumnIndex", 0);
_ObjectSetProperty( grid , "MarkSearchColumn", 0);
_ObjectSetProperty( grid , "FullRowSelect", 0);
_ObjectSetProperty( grid , "HeaderAppearance", -1);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "C1") , "Width", 32);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "C2") , "FormatColumn", "1 index ``");
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Cell 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellSingleLine(h,1) = False");
h = _ObjectCallMethod( items , "AddItem", "This is bit of text merges all cells in the item (divider shows no +/-)");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemBackColor(h) = 15790320");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDividerLine(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellHAlignment(h,0) = 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Cell 3");
h = _ObjectCallMethod( items , "AddItem", "This is bit of text merges all cells in the item (merge shows +/-)");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemBackColor(h) = 15790320");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellMerge(h,0) = 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
_ObjectCallMethod( items , "InsertItem", h,"","Child 4");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1122
|
How can I define a column of button type
// ButtonClick event - Occurs when user clicks on the cell's button.
FUNCTION gridEvents_ButtonClick(OBJECT grid, INT Item, INT ColIndex, VARIANT Key)
OBJECT items;
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,ColIndex,Item")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", ColIndex)
_ObjectCallMethod(grid, "TemplatePut", Item)
Message( _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(Item,ColIndex)") );
END
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Button");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(2) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(3) = False");
_ObjectSetProperty( column , "FormatColumn", "``");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 48);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Second") , "FormatColumn", "` Item ` + 1 index ``");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Button 1");
_ObjectCallMethod( items , "AddItem", "Button 2");
_ObjectCallMethod( items , "AddItem", "Button 3 ");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1121
|
Is it possible to configure different colour/icon when there is a active filter
// FilterChange event - Occurs when filter was changed.
FUNCTION gridEvents_FilterChange()
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(0) = FormatABC(`value = 0 ? 0x1000001 : 0x10000FF `,Columns.Item(0).FilterType)");
END
OBJECT appearance,column,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
appearance = _ObjectGetProperty( grid , "VisualAppearance");
_ObjectSetProperty( appearance , "RenderType", -16777216);
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" +
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" +
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA");
_ObjectSetProperty( grid , "DrawGridLines", -1);
_ObjectSetProperty( grid , "ShowFocusRect", 0);
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(0) = 16777217");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(32) = -1");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "BackColorHeader", 16777215);
_ObjectSetProperty( grid , "HeaderVisible", 1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Filter");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "AllowDragging", 0);
_ObjectSetProperty( column , "FilterList", 256);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "Filter", "Item B");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1120
|
How can I display the type of the value the column display
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "DrawGridLines", -2);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Values");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "value + ` <off 4><fgcolor=808080>type(` + type(%0) + `)`");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", );
_ObjectCallMethod( items , "AddItem", -1);
_ObjectCallMethod( items , "AddItem", "string");
_ObjectCallMethod( items , "AddItem", #1/1/2001#);
_ObjectCallMethod( items , "AddItem", 2);
_ObjectCallMethod( items , "AddItem", -1);
_ObjectCallMethod( items , "AddItem", 12.34);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1119
|
I want to create a conditional format for a column, verifying that the value of the cell is numeric, how can I do
OBJECT conditionalformat,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "DrawGridLines", -2);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Values");
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "type(%0) in (2,3,4,5,18,19,20,21)");
_ObjectSetProperty( conditionalformat , "ForeColor", 255);
_ObjectSetProperty( conditionalformat , "Bold", -1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "type(%0) = 11") , "ForeColor", 65280);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "type(%0) = 7") , "ForeColor", 16711680);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "type(%0) in (0,1)") , "BackColor", 15790320);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", );
_ObjectCallMethod( items , "AddItem", -1);
_ObjectCallMethod( items , "AddItem", "string");
_ObjectCallMethod( items , "AddItem", #1/1/2001#);
_ObjectCallMethod( items , "AddItem", 2);
_ObjectCallMethod( items , "AddItem", -1);
_ObjectCallMethod( items , "AddItem", 12.34);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1118
|
How can I assign a computed value on a different column based on other columns
// Change event - Occurs when the user changes the cell's content.
FUNCTION gridEvents_Change(OBJECT grid, INT Item, INT ColIndex, VARIANT NewValue)
OBJECT items;
_ObjectCallMethod( grid , "FreezeEvents", -1);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,Item,NewValue")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", Item)
_ObjectCallMethod(grid, "TemplatePut", NewValue)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(Item,1) = Me.FormatABC(`int(255*sin(value/2))`,NewValue)");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(Item,2) = Me.FormatABC(`int(255*cos(value/2))`,NewValue)");
_ObjectCallMethod( grid , "FreezeEvents", 0);
END
OBJECT column,grid,items,var_column;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "SelBackMode", 1);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "DrawGridLines", -2);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Value");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
_ObjectSetProperty( column , "Width", 64);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Add(`Assign A`).Def(4) = 16448250");
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Add(`Assign B`).Def(4) = 16448250");
var_Column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Computed");
var_column = var_Column;
_ObjectCallMethod(grid, "TemplatePut", "Dim varObj")
_ObjectCallMethod(grid, "TemplatePut", var_column)
_ObjectCallMethod(grid, "ExecuteTemplate", "varObj.Def(4) = 16448250");
_ObjectSetProperty( var_column , "ComputedField", "%1 + %2");
_ObjectSetProperty( var_column , "FormatColumn", "value format ``");
_ObjectSetProperty( var_column , "Alignment", 2);
_ObjectSetProperty( var_column , "HeaderAlignment", _ObjectGetProperty( var_column , "Alignment"));
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "%3 >= 0") , "Bold", -1);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", 1989);
_ObjectCallMethod( items , "AddItem", 2001);
_ObjectCallMethod( items , "AddItem", 2017);
_ObjectCallMethod( items , "AddItem", 2018);
_ObjectCallMethod( items , "AddItem", 2019);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1117
|
How can I get computed a value on a different column
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "DrawGridLines", -2);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Year");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
_ObjectSetProperty( column , "Width", 64);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Easter") , "FormatColumn", "date(dateS('3/1/' + %0) + ((1:=(((255 - 11 * (%0 mod 19)) - 21) mod 30) + 21) + (=:1 > 48 ? -1 : 0) + 6 - ((%0 + int(%0 / 4)) " +
"+ =:1 + (=:1 > 48 ? -1 : 0) + 1) mod 7))");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", 1989);
_ObjectCallMethod( items , "AddItem", 2001);
_ObjectCallMethod( items , "AddItem", 2017);
_ObjectCallMethod( items , "AddItem", 2018);
_ObjectCallMethod( items , "AddItem", 2019);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1116
|
How can I prevent applying ConditionalFormats on a specified cell, for instance I am displaying a Total field, and I will like to have formatted in a different way (method 2)
// Change event - Occurs when the user changes the cell's content.
FUNCTION gridEvents_Change(OBJECT grid, INT Item, INT ColIndex, VARIANT NewValue)
_ObjectCallMethod( grid , "Refresh");
END
OBJECT column,conditionalformat,editor,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "(%0 >= 0)");
_ObjectSetProperty( conditionalformat , "Expression", "(0=type(%CD0)) and (%0 >= 0)");
_ObjectSetProperty( conditionalformat , "Bold", -1);
_ObjectSetProperty( conditionalformat , "ForeColor", 255);
Message( "ConditionalFormat.Valid" );
Message( _ObjectGetProperty( conditionalformat , "Valid") );
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Numbers");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "Numeric", -1);
_ObjectSetProperty( editor , "EditType", 4);
_ObjectSetProperty( column , "SortType", 1);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", 100);
_ObjectCallMethod( items , "AddItem", -25);
_ObjectCallMethod( items , "AddItem", 31);
_ObjectCallMethod( items , "AddItem", -48);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "sum(all,dir,dbl(%0))");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SortableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemBackColor(h) = 15790320");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellData(h,0) = `total`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,0) = 5");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `'Total: <b><fgcolor=0000FF>'+(value format ``)`");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1115
|
How can I prevent applying ConditionalFormats on a specified cell, for instance I am displaying a Total field, and I will like to have formatted in a different way (method 1)
// Change event - Occurs when the user changes the cell's content.
FUNCTION gridEvents_Change(OBJECT grid, INT Item, INT ColIndex, VARIANT NewValue)
_ObjectCallMethod( grid , "Refresh");
END
OBJECT column,conditionalformat,editor,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "%0 >= 0");
_ObjectSetProperty( conditionalformat , "Bold", -1);
_ObjectSetProperty( conditionalformat , "ForeColor", 255);
_ObjectSetProperty( conditionalformat , "ApplyTo", 0);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Numbers");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "Numeric", -1);
_ObjectSetProperty( editor , "EditType", 4);
_ObjectSetProperty( column , "SortType", 1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Total") , "Visible", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(2) = 1");
h = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(2,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDividerLine(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemBackColor(h) = 15790320");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `sum(all,dir,dbl(%0))`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,1) = 5");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellHAlignment(h,1) = 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(h,1) = `'Total: <b><fgcolor=0000FF>'+(value format ``)`");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", 100);
_ObjectCallMethod( items , "AddItem", -25);
_ObjectCallMethod( items , "AddItem", 31);
_ObjectCallMethod( items , "AddItem", -48);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1114
|
ADODB Requery sample
// ButtonClick event - Occurs when user clicks on the cell's button.
FUNCTION gridEvents_ButtonClick(OBJECT grid, INT Item, INT ColIndex, VARIANT Key)
OBJECT cmd;
cmd = CreateObject("ADODB.Command");
_ObjectSetProperty( cmd , "ActiveConnection", _ObjectGetProperty( _ObjectGetProperty( grid , "DataSource") , "ActiveConnection"));
_ObjectSetProperty( cmd , "CommandText", "INSERT INTO Orders (EmployeeID) VALUES(12345)");
_ObjectSetProperty( cmd , "CommandType", 1);
_ObjectCallMethod( cmd , "Execute", );
_ObjectCallMethod( _ObjectGetProperty( grid , "DataSource") , "Requery", );
END
// Error event - Fired when an internal error occurs.
FUNCTION gridEvents_Error(OBJECT grid, INT Error, STRING Description)
Message( Description );
END
OBJECT grid,items,rs;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
rs = CreateObject("ADODB.Recordset");
_ObjectCallMethod( rs , "Open", "Select * From Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",1,3);
_ObjectSetProperty( grid , "DataSource", rs);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "%1=12345") , "BackColor", 15790320);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(0) = 1");
h = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(0,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellHasButton(h,0) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,0) = `Requery (add a new record, using ADODB.Command)`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellHAlignment(h,0) = 1");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1113
|
I am using DetectAddNew property, but no new items is added when AddNew is performed
// ButtonClick event - Occurs when user clicks on the cell's button.
FUNCTION gridEvents_ButtonClick(OBJECT grid, INT Item, INT ColIndex, VARIANT Key)
OBJECT recordset;
recordset = _ObjectGetProperty( grid , "DataSource");
_ObjectCallMethod( recordset , "AddNew", "EmployeeID",123);
_ObjectCallMethod( recordset , "Update", );
END
// Error event - Fired when an internal error occurs.
FUNCTION gridEvents_Error(OBJECT grid, INT Error, STRING Description)
Message( Description );
END
OBJECT grid,items,rs;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
rs = CreateObject("ADODB.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",1,3);
_ObjectSetProperty( grid , "DataSource", rs);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(0) = 1");
h = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(0,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellHasButton(h,0) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,0) = `AddNew`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellHAlignment(h,0) = 1");
_ObjectSetProperty( grid , "DetectAddNew", -1);
_ObjectSetProperty( grid , "DetectDelete", -1);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1112
|
I am skinning the control's header-bar, but the background of the header-bar is shown on each item in the filter-bar drop down panel. What can I do
OBJECT appearance,column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
appearance = _ObjectGetProperty( grid , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQGhsCYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU8lORLUi+M4zSBPcZVTRtGShPDB" +
"KTjMKKYgkG4lVpRNa0PC1GTzQ6mazkKQLRADDIDVbAeL3LiMBy9LyLLItQALByua5mWhbcZyBCOPgBTrRb5zO58FjuTK7YLjMB7NrUNYtFaUMy2OpOCADIaecTNcaWLx" +
"PF2MY1HWYxVj2Jw3DuRJonKYBgggSRAlIYw6B0ThGFgPAkFUDAhBMfZRiGNAkFECZnm4YQdneJwqnsSQrGAAhWAIJBJBIQgFCQIBiEIAglgqYo0i4V4MEgRI9gSToYFS" +
"b4Fk6Y4+BmBZhFOJgTC8TBogQAArgqco4muCZOkOMJtgmYpIjYKg7GKE4uCUK4AAKKg2DwI4DiCZw5k6KJ2D6D4OHiag4DwIxiiQAArAqMosnEPBPAOIhOg+DozjIJ4P" +
"GSY4iEwPAkhKLhHUUSQsnKFCnkYU9MjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDya" +
"ICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tE" +
"sHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQg" +
"pDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAA" +
"MR1EOZxWi+bx7HcWQ8msfRYnnDhQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARViHH" +
"4HQOYmxuCpF2MsecEQVBvGQCcIQvA6i2CAAIARAQ=");
_ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMwwDhEIwjHCEEhsGIbJAGQBJCjWGodQLOEgzN" +
"C0IxNFCQILhEZJADKII8TTOU5UPRESwTE4cKBmKhQCo2NpKR7VUTxCKQahLLivoCjBT8EzHMqtIzrCA6MpaP4pQjKcqwHJ8YyHEi0ZrjazKaj6T5AXDUcaWbbNVx3PK3" +
"aioOpLZrqOZZYzYFoABTuJzPMSyIhxXD8cweaZvSpLExVYK9BY3PbKMgxC77QgTIpDaQMNS6PjtF43PAALLFUaNYzoOKzABMHATBIXAYJCwIIR5G7ID4BbQcCQAHL9DB" +
"aEEIAEEISgGhMGZQmocgymmIRQkIEQ2BcGgbEIRQci8XaMBqTRVgSAZHG+S5pnOep+D6f4vjec5zn0fpfmgBgAH6TRoBYBoAh+eAmAiAgPFgNArgOQpIESdoEmCOAOAq" +
"BYfFGAgaEaBgYHYFYFmIB5UiGCJUgKCgmgeYoHk4BgCmKRQiCwApgHgYgyH8B54lQU4NkMeJlBoDgjkiXBTg0R54iYIR+koeQVBoKpkgkChKhEJBkF4SFEjkDgJhFQoe" +
"EmDJlBeehUhWJQJGIXoICWOQ6FeFIlhkfhlDsSJpiQVoamaSY2G6G5nAmRhpCOH5pkwVYdmeCZmHqHpnkmdhzhmaAIFiax8AABAEICA==");
_ObjectSetProperty( grid , "BackColorHeader", 16777216);
_ObjectSetProperty( grid , "ForeColorHeader", 8421504);
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(0) = 33554432");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(26) = 16777215");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(27) = 65536");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(20) = 33521664");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(21) = 15790320");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(32) = -1");
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "BackColorLevelHeader", _ObjectGetProperty( grid , "BackColor"));
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Filter");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 9504);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(52) = 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(53) = 2");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "A");
_ObjectCallMethod( items , "AddItem", "B");
_ObjectCallMethod( items , "AddItem", "C");
_ObjectCallMethod( items , "AddItem", "D");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1111
|
How can I change the font for entire column (method 3)
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION gridEvents_AddItem(OBJECT grid, INT Item)
OBJECT items;
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,Item")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", Item)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellFont(Item,1) = Me.Columns.Item(1).Data");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellBold(Item,1) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellForeColor(Item,1) = 255");
END
OBJECT column,f,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "C1");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "C2");
_ObjectSetProperty( column , "HTMLCaption", "<b><font Tahoma;14>C2");
f = CreateObject("StdFont");
_ObjectSetProperty( f , "Name", "Tahoma");
_ObjectSetProperty( f , "Size", 11);
_ObjectSetProperty( column , "Data", f);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(10),1) = 11");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(12),1) = 13");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1110
|
How can I change the font for entire column (method 2)
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION gridEvents_AddItem(OBJECT grid, INT Item)
OBJECT f,items;
items = _ObjectGetProperty( grid , "Items");
f = CreateObject("StdFont");
_ObjectSetProperty( f , "Name", "Tahoma");
_ObjectSetProperty( f , "Size", 11);
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,Item")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", Item)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellFont(Item,1) = f");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellBold(Item,1) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellForeColor(Item,1) = 255");
END
OBJECT grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "C1");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "C2") , "HTMLCaption", "<b><font Tahoma;14>C2");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(10),1) = 11");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(12),1) = 13");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1109
|
How can I change the font for entire column (method 1)
OBJECT conditionalformat,f,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "1");
_ObjectSetProperty( conditionalformat , "Bold", -1);
_ObjectSetProperty( conditionalformat , "ForeColor", 255);
f = CreateObject("StdFont");
_ObjectSetProperty( f , "Name", "Tahoma");
_ObjectSetProperty( f , "Size", 11);
_ObjectSetProperty( conditionalformat , "Font", f);
_ObjectSetProperty( conditionalformat , "ApplyTo", 1);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "C1");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "C2") , "HTMLCaption", "<b><font Tahoma;14>C2");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(10),1) = 11");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(12),1) = 13");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1108
|
I am using ExComboBox as an user editor, how can I display a different column
// UserEditorClose event - Fired the user editor is about to be opened.
FUNCTION gridEvents_UserEditorClose(OBJECT grid, OBJECT Object, INT Item, INT ColIndex)
' Items.CellValue(Item,ColIndex) = Object.Select("OrderID")
END
// UserEditorOleEvent event - Occurs when an user editor fires an event.
FUNCTION gridEvents_UserEditorOleEvent(OBJECT grid, OBJECT Object, OBJECT Ev, INT CloseEditor, INT Item, INT ColIndex)
Message( Ev );
END
// UserEditorOpen event - Occurs when an user editor is about to be opened.
FUNCTION gridEvents_UserEditorOpen(OBJECT grid, OBJECT Object, INT Item, INT ColIndex)
' Object.Select("OrderID") = Me.Items.CellValue(Item,ColIndex)
END
OBJECT column,combobox,editor,grid,items,rs;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "SortOnClick", 0);
editor = _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Exontrol.ComboBox") , "Editor");
_ObjectSetProperty( editor , "EditType", 16);
_ObjectCallMethod( editor , "UserEditor", "Exontrol.ComboBox","");
combobox = _ObjectGetProperty( editor , "UserEditorObject");
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "Style", 2);
_ObjectSetProperty( combobox , "ColumnAutoResize", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3);
_ObjectSetProperty( combobox , "DataSource", rs);
_ObjectSetProperty( combobox , "Alignment", 0);
_ObjectSetProperty( combobox , "IntegralHeight", -1);
_ObjectSetProperty( combobox , "MinHeightList", 128);
_ObjectSetProperty( combobox , "MinWidthList", 648);
_ObjectSetProperty( combobox , "HeaderHeight", 36);
_ObjectSetProperty( combobox , "AllowSizeGrip", -1);
_ObjectSetProperty( combobox , "SingleEdit", -1);
_ObjectSetProperty( combobox , "LabelColumnIndex", 7);
_ObjectSetProperty( combobox , "SearchColumnIndex", 0);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "comObj.Columns.Item(0)");
_ObjectSetProperty( column , "HeaderBold", -1);
_ObjectSetProperty( column , "HTMLCaption", "OrderID<br><fgcolor=808080>(search)");
column = _ObjectCallMethod(grid, "ExecuteTemplate", "comObj.Columns.Item(7)");
_ObjectSetProperty( column , "HeaderBold", -1);
_ObjectSetProperty( column , "HTMLCaption", "ShipName<br><fgcolor=808080>(display)");
_ObjectSetProperty( column , "Width", 128);
_ObjectSetProperty( combobox , "UseTabKey", 0);
_ObjectCallMethod( combobox , "EndUpdate");
_ObjectSetProperty( grid , "DrawGridLines", -2);
_ObjectSetProperty( grid , "TreeColumnIndex", -1);
_ObjectSetProperty( grid , "DefaultItemHeight", 21);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "shows always the drop-down editor");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellHAlignment(h,0) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDividerLineAlignment(h) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.EnableItem(h) = False");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditorVisible(AddItem(10248),0) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditorVisible(AddItem(10249),0) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditorVisible(AddItem(10250),0) = 1");
h = _ObjectCallMethod( items , "AddItem", "shows the drop-down editor when user clicks it");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellHAlignment(h,0) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDividerLineAlignment(h) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.EnableItem(h) = False");
_ObjectCallMethod( items , "AddItem", 10248);
_ObjectCallMethod( items , "AddItem", 10249);
_ObjectCallMethod( items , "AddItem", 10250);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1107
|
The ItemHeight property is not working (method 2)
OBJECT grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
_ObjectSetProperty( grid , "ScrollBySingleLine", -1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Column") , "Width", 128);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellSingleLine(AddItem(`This is a bit of text that should break the line`),0) = 0");
h = _ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDividerLineAlignment(h) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHeight(h) = 3");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellSingleLine(AddItem(`This is a bit of text that should break the line`),0) = 0");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1106
|
The ItemHeight property is not working (method 1)
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
_ObjectSetProperty( grid , "ScrollBySingleLine", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Column");
_ObjectSetProperty( column , "Width", 128);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(16) = 0");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "This is a bit of text that should break the line");
h = _ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDividerLineAlignment(h) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemMinHeight(h) = 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemMaxHeight(h) = 3");
_ObjectCallMethod( items , "AddItem", "This is a bit of text that should break the line");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1105
|
How do I add a total field locked at the bottom of the control
// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
FUNCTION gridEvents_AddGroupItem(OBJECT grid, INT Item)
OBJECT items;
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,Item")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", Item)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDividerLine(Item) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(Item,GroupItem(Item)) = `value + ` Min: <b>` + %13 + `</b> Max: <b>` + %14 + `</b> Sum: <b>` + %15 + `</b>, of Freight column``");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(Item,`Min`) = `min(current,all,dbl(%6))`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(Item,`Min`) = 4");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(Item,`Max`) = `max(current,all,dbl(%6))`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(Item,`Max`) = 4");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(Item,`Sum`) = `sum(current,all,dbl(%6))`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(Item,`Sum`) = 4");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemBackColor(Item) = 15790320");
END
// Change event - Occurs when the user changes the cell's content.
FUNCTION gridEvents_Change(OBJECT grid, INT Item, INT ColIndex, VARIANT NewValue)
_ObjectCallMethod( grid , "Refresh");
END
OBJECT column,columns,grid,items,rs,var_column,var_column1;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HasLines", 0);
_ObjectCallMethod(grid, "ExecuteTemplate", "Description(26) = `Show/Hide`");
_ObjectSetProperty( grid , "ColumnsFloatBarSortOrder", 1);
_ObjectSetProperty( grid , "ColumnsFloatBarVisible", 2);
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
_ObjectSetProperty( grid , "BackColorSortBar", 15790320);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3);
_ObjectSetProperty( grid , "DataSource", rs);
_ObjectSetProperty( grid , "SingleSort", 0);
_ObjectSetProperty( grid , "SortBarVisible", -1);
_ObjectSetProperty( grid , "AllowGroupBy", -1);
_ObjectSetProperty( grid , "SortBarCaption", "Drag a <b>column</b> header here to group by that column.");
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Min");
_ObjectSetProperty( column , "Visible", 0);
_ObjectSetProperty( column , "AllowDragging", 0);
var_Column = _ObjectCallMethod( columns , "Add", "Max");
var_column = var_Column;
_ObjectSetProperty( var_column , "Visible", 0);
_ObjectSetProperty( var_column , "Visible", 0);
_ObjectSetProperty( var_column , "AllowDragging", 0);
var_Column1 = _ObjectCallMethod( columns , "Add", "Sum");
var_column1 = var_Column1;
_ObjectSetProperty( var_column1 , "Visible", 0);
_ObjectSetProperty( var_column1 , "Visible", 0);
_ObjectSetProperty( var_column1 , "AllowDragging", 0);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(`Freight`)");
_ObjectSetProperty( column , "FormatColumn", "currency(value)");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(4) = 12895487");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(7) = Def(4)");
_ObjectSetProperty( column , "HeaderBold", -1);
_ObjectSetProperty( column , "AllowGroupBy", 0);
_ObjectSetProperty( column , "Alignment", 2);
_ObjectSetProperty( grid , "ScrollBySingleLine", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(2) = 2");
hL = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(2,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hL")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hL)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(hL) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHeight(hL) = 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDividerLineAlignment(hL) = 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDividerLine(hL) = 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
hL = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(2,1)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hL")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hL)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(hL,6) = `sum(all,rec,dbl(%6))`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(hL,6) = 4");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHeight(hL) = 24");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemBold(hL) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(`EmployeeID`).SortOrder = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1104
|
How can I add a total field, when I use grouping
// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
FUNCTION gridEvents_AddGroupItem(OBJECT grid, INT Item)
OBJECT items;
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,Item")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", Item)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDividerLine(Item) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(Item,GroupItem(Item)) = `value + ` Min: <b>` + %13 + `</b> Max: <b>` + %14 + `</b> Sum: <b>` + %15 + `</b>, of Freight column``");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(Item,`Min`) = `min(current,all,dbl(%6))`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(Item,`Min`) = 4");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(Item,`Max`) = `max(current,all,dbl(%6))`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(Item,`Max`) = 4");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(Item,`Sum`) = `sum(current,all,dbl(%6))`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(Item,`Sum`) = 4");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemBackColor(Item) = 15790320");
END
// Change event - Occurs when the user changes the cell's content.
FUNCTION gridEvents_Change(OBJECT grid, INT Item, INT ColIndex, VARIANT NewValue)
_ObjectCallMethod( grid , "Refresh");
END
OBJECT column,columns,grid,items,rs;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HasLines", 0);
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
_ObjectSetProperty( grid , "BackColorSortBar", 15790320);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3);
_ObjectSetProperty( grid , "DataSource", rs);
_ObjectSetProperty( grid , "SingleSort", 0);
_ObjectSetProperty( grid , "SortBarVisible", -1);
_ObjectSetProperty( grid , "AllowGroupBy", -1);
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(1).SortOrder = True");
columns = _ObjectGetProperty( grid , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Min") , "Visible", 0);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Max") , "Visible", 0);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Sum") , "Visible", 0);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(`Freight`)");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(4) = 12895487");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(7) = Def(4)");
_ObjectSetProperty( column , "HeaderBold", -1);
_ObjectSetProperty( column , "AllowGroupBy", 0);
_ObjectSetProperty( grid , "ScrollBySingleLine", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(2) = 1");
hL = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(2,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hL")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hL)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(hL) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHeight(hL) = 24");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDividerLineAlignment(hL) = 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDividerLine(hL) = 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(hL,0) = `sum(all,rec,dbl(%6))`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(hL,0) = 5");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellHAlignment(hL,0) = 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(hL,0) = `'Freight: <bgcolor=FFC4C4> '+(value format ``) + ` ``");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1103
|
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeCheckColumns
OBJECT columns,grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod( columns , "Add", "City");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Start") , "Visible", 0);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "End") , "Visible", 0);
_ObjectCallMethod(grid, "ExecuteTemplate", "Description(26) = `Show/Hide`");
_ObjectSetProperty( grid , "ColumnsFloatBarSortOrder", 1);
_ObjectSetProperty( grid , "ColumnsFloatBarVisible", 2);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1102
|
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeHiddenColumn
OBJECT columns,grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod( columns , "Add", "City");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Start") , "Visible", 0);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "End") , "Visible", 0);
_ObjectCallMethod(grid, "ExecuteTemplate", "Description(26) = `Show`");
_ObjectSetProperty( grid , "ColumnsFloatBarVisible", -1);
_ObjectSetProperty( grid , "ColumnsFloatBarSortOrder", 1);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1101
|
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeGroupByColumns
OBJECT columns,grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod( columns , "Add", "City");
_ObjectCallMethod( columns , "Add", "Start");
_ObjectCallMethod( columns , "Add", "End");
_ObjectSetProperty( grid , "AllowGroupBy", -1);
_ObjectSetProperty( grid , "SortBarVisible", -1);
_ObjectSetProperty( grid , "SortBarCaption", "Drag a <b>column</b> header here to group by that column.");
_ObjectSetProperty( grid , "BackColorSortBar", 16448250);
_ObjectCallMethod(grid, "ExecuteTemplate", "Description(26) = `Group-By`");
_ObjectSetProperty( grid , "ColumnsFloatBarVisible", 1);
_ObjectSetProperty( grid , "ColumnsFloatBarSortOrder", 1);
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(`City`).SortOrder = 1");
_ObjectCallMethod( grid , "EndUpdate");
|